Can a procedure (for a GUI module) work within an if statement?

[vdemons]

I am suppose to make a game for my class, but being the over achiever I am I made two. Now I want to put the two together to make 2 games in one. The problem is that I used a GUI module in both my programs. I know they don't work in loops but do they work in if statements because I plan to make my own button (click on a box to enable one game, click on another box to play another game). I would like to know if its possible to do such a thing if not is there any other method?

Please and Thank you in Advance!

[apython1992]

Yes. Your front-end GUI will be the interface that selects a game, and you can use simple GUI logic to control this.

[vdemons]

Front - end GUI? I have never heard of that, what is it?

[apython1992]

By front-end I just mean something that a user will interface with - like this GUI.

[vdemons]

So how would I use that in selecting my game(s)?

[vdemons]

Because I used a GUI example from the help guide put it under an if statement and gave me an error, so what do I do?

[Tony]

What kind of an error?

[vdemons]

"Procedure's may only be declared at the program, module, or monitor level."

The code (made as an example):

import GUI

var d : int := 1

if d = 1 then

procedure DrawRandomCircle
var r : int := Rand.Int (20, 50)
var x : int := Rand.Int (r, maxx - r)
var y : int := Rand.Int (r, maxy - r)
var c : int := Rand.Int (0, maxcolor)
Draw.FillOval (x, y, r, r, c)
% In case we drew over the buttons, redraw them.
GUI.Refresh
end DrawRandomCircle

View.Set ("graphics:300;200,nobuttonbar")
var draw : int := GUI.CreateButtonFull (50, 10, 0, "Draw Circle",
DrawRandomCircle, 0, '^D', true)
var quitBtn : int := GUI.CreateButton (200, 10, 0, "Quit", GUI.Quit)
loop
exit when GUI.ProcessEvent
end loop

end if

[Tony]

You can't declare procedures inside another block of code (with an exception of it being a module or monitor).

[apython1992]

You may be getting confused about the difference between defining procedures and actually using them. If you define a procedure, it won't actually do anything until you call it. Define the procedures that invoke both games, but let the if statement control which procedure is actually called.

[vdemons]

I am sorry but I don't know what you mean, can you give me an example?

[Tony]

code:

procedure foo    put "hi" end foo

nothing happens

code:

procedure foo    put "hi" end foo foo

procedure was always called

code:

var bar : boolean := true procedure foo    put "hi" end foo if bar then   foo end if

procedure called only if variable bar was set to true

[vdemons]

i got it ty