-----------------------------------

jrok311

Sat Apr 30, 2005 1:52 pm


buttons dont work

-----------------------------------

I'm working on a program that uses buttons. I have made many of them before but have never had any problems with it. In this program the buttons cannot be clicked. How can I fix it? Here is my code:


import GUI in "%oot/support/lib/GUI"
setscreen ("graphics")

const chatPort : int := 5055
var netStream : int
var netAddress : string

procedure runserver
    netStream := Net.WaitForConnection (chatPort, netAddress)
end runserver

procedure connecttoserver
    put "Enter the address to connect to: " ..
    get netAddress
    netStream := Net.OpenConnection (netAddress, chatPort)
    if netStream