Putting exit command

[Jim]

Currently working on an intro screen for a game but ive run into a problem with my quit button. I dont exactly know how to add an exit condition or exit command into it. My Being and Quit buttons are both procedures, would be great if i could possibly get some feed back on how to put the exit into the quit procedure.

Thanks.

Current Program

import GUI
var font1 : int
font1 := Font.New ("comicsans:14")
Font.Draw ("A Caves and Lizards Production", 175, 175, font1, red)


var mypic : int := Pic.FileNew ("LZRD.bmp")
Pic.Draw (mypic, maxx div 2.5, maxy div 2, 0)
Pic.Free (mypic)

procedure Begin
locate (1, 1)
put "You Have Selected To Play"
end Begin


procedure Quit
locate (1, 1)
put "Bye!"
end Quit

var button2 : int := GUI.CreateButton (25, 50, 0, "Play", Begin)
var button1 : int := GUI.CreateButton (25, 25, 0, "Exit", Quit)



loop
exit when GUI.ProcessEvent
end loop

[Tony]

that is because your quit procedure doesn't do anything, it just says it's "bye", but it has no effect on your

code:

loop   exit when GUI.ProcessEvent end loop

which will just keep on running until GUI.ProcessEvent return true. Calling GUI.Quit at any point will do that.

[Jim]

Ah, kk that works, thanks . If I wanted to exit the whole run window would it be a different command?

thanks again

[Tony]

well GUI.Quit just makes you exit out of the loop. If you have some code after it, that will be executed.

I think Turing's quit might quit the entire application. I don't remember if the run window actually closes at completion.

[Sean]

If you make a window from a variable then the Window.Close function would be used.

[Carey]

Or if you have

code:

return

outside of a procedure it will automatically finish your program. You can then set it to immediately close the run window when the program finishes when creating an exe

[Jim]

Cool thanks guys, appreciate everyones help

[StealthArcher]

Tony @ Fri Jan 11, 2008 9:55 am wrote:

well GUI.Quit just makes you exit out of the loop. If you have some code after it, that will be executed.

I think Turing's quit might quit the entire application. I don't remember if the run window actually closes at completion.

As for the quit command, don't use it, it will always cause a warning window to come up stating error gibberish at the user, even after compilation.