OpenEuphoria

Re: help on this window...

• Posted by Mark Brown <mabrown at SENET.COM.AU> Jul 27, 2000
• 406 views

Hi Alex


> in this .exw it won't let me put the last 2 MenuItems in the About menu...
> why?
>
> atom x
> include win32lib.ew
> without warning
>
> constant
> win = create(Window, "TETRIS", 0, Default, Default, 400,400,0),
> file = create(Menu, "File", win,0,0,0,0,0),
> newgame = create(MenuItem, "New", file,0,0,0,0,0),
> loadfile = create(MenuItem, "Open", file,0,0,0,0,0),
> score = create(MenuItem, "High Scores", file,0,0,0,0,0),
> quit = create(MenuItem, "Close",file,0,0,0,0,0),
> options = create(Menu, "Options", win,0,0,0,0,0),
> level = create(MenuItem, "Level", options,0,0,0,0,0),
> omusic = create(MenuItem, "turn Sound on", options,0,0,0,0,0),
> fmusic = create(MenuItem, "turn Sound off", options,0,0,0,0,0),


Try changing this....

> helpgame = create(Menu, "Help", win,0,0,0,0,0),
> About = create(MenuItem, "About", help,0,0,0,0,0),
> Guide = create(MenuItem, "About", help,0,0,0,0,0)

to this....

> help = create(Menu, "Help", win,0,0,0,0,0),
> About = create(MenuItem, "About", help,0,0,0,0,0),
> Guide = create(MenuItem, "Guide", help,0,0,0,0,0)

Hope this helps.

Mark