button help

[rikku007]

hi, i have a bit of problem with the buttons. When i change the colour of the happy face, the buttons will not press down since the GUI.ProcessEvent doesnt process, is there any way to get around it yet keep the animation of the smiley?

% The "PennyGame" program.
import GUI

procedure DoNothing
end DoNothing

View.Set ("graphics:800;600,nobuttonbar")
locate (2,50)
put "THE PENNY GAME!"

var draw : int := GUI.CreateButtonFull (20, 350, 200, "Introduction Animation",
DoNothing, 0, '^D', true)
var draw1 : int := GUI.CreateButtonFull (20, 300, 200, "Tutorial Animation",
DoNothing, 0, '^D', true)
var draw2 : int := GUI.CreateButtonFull (20, 250, 200, "Lessons",
DoNothing, 0, '^D', true)
var draw3 : int := GUI.CreateButtonFull (20, 200, 200, "Questions/Results",
DoNothing, 0, '^D', true)
var draw4 : int := GUI.CreateButtonFull (20, 150, 200, "Vs. Mode",
DoNothing, 0, '^D', true)
var draw5 : int := GUI.CreateButtonFull (20, 100, 200, "Exit",
DoNothing, 0, '^D', true)

randomize
loop
var col1, col2:int
randint (col1,1,255)
randint (col2,1,255)
Draw.FillOval (500,300,200,200,col1)
Draw.FillOval (450,360,20,40,col2)
Draw.FillOval (550,360,20,40,col2)
Draw.Arc (500,240,120,40,180,360,col2)
delay(1000)
end loop

loop
exit when GUI.ProcessEvent
end loop

[Carey]

Your problem is that your program never actually gets to the 'exit when GUI.ProcessEvent' loop, it only draws the smilies. I hate to use processes because of reasons much dicussed elsewhere, but i think this is one of the times that it's ok because you dont really need it to be accurate and predictable, you just need it to draw a few ovals and such.

Turing:

import GUI procedure DoNothing end DoNothing process drawing     loop         var col1, col2 : int         randint (col1, 1, 255)         randint (col2, 1, 255)         Draw.FillOval (500, 300, 200, 200, col1)         Draw.FillOval (450, 360, 20, 40, col2)         Draw.FillOval (550, 360, 20, 40, col2)         Draw.Arc (500, 240, 120, 40, 180, 360, col2)         delay (1000)     end loop end drawing View.Set ("graphics:800;600,nobuttonbar") locate (2, 50) put "THE PENNY GAME!" var draw : int := GUI.CreateButtonFull (20, 350, 200, "Introduction Animation",     DoNothing, 0, '^D', true) var draw1 : int := GUI.CreateButtonFull (20, 300, 200, "Tutorial Animation",     DoNothing, 0, '^D', true) var draw2 : int := GUI.CreateButtonFull (20, 250, 200, "Lessons",     DoNothing, 0, '^D', true) var draw3 : int := GUI.CreateButtonFull (20, 200, 200, "Questions/Results",     DoNothing, 0, '^D', true) var draw4 : int := GUI.CreateButtonFull (20, 150, 200, "Vs. Mode",     DoNothing, 0, '^D', true) var draw5 : int := GUI.CreateButtonFull (20, 100, 200, "Exit",     DoNothing, 0, '^D', true) fork drawing loop     exit when GUI.ProcessEvent end loop

That should work for you. Also next time use code or syntax tags (when posting click the 'more tags' link and click the 'code' or 'syntax' button