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

tridi

Wed Jan 03, 2007 1:05 am


mouse

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

Why won't the text show up when I hover over the red circle?



%Set screen up
import GUI
setscreen ("nocursor")
setscreen ("noecho")


%Declaration Section
%Global Variables
var quitBtn, menuBtn, playBtn, continueBtn, testBtn : int := 0
var pictureID : int
var rangex, rangey, button : int
var winID1 := Window.Open ("postion:200;200,graphics:640;400")
var location : string
var mistakes : int := 0
%var teachWin := Window.Open ("graphics:640;400")


%Procedures
proc title
    cls
    locate (1, 32)
    put "Testing"
end title

proc goodBye
    title
    locate (3, 1)
    put "Thanks for playing!"
    locate (24, 1)
    put "Brought to you by -------"
    delay (2000)
    Window.Close (winID1)
end goodBye

proc teachSection
    title
        GUI.Show (menuBtn)
    locatexy (155, 35)
    drawfilloval (170, 155, 25, 25, 12)
    mousewhere (rangex, rangey, button)
    locate (3, 1)
    put "Hover on the red circle."
    if button = 1 then
        if rangex >= 145 and rangex = 130 and rangey