OpenEuphoria

help on this window...

• Posted by Alex Ford <FFUltimateMaster at CS.COM> Jul 26, 2000
• 376 views

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),
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)

--These two commands are cuase some kind of problem... When i try and run the
program, it tells me that 'help' has not been declared... but since its a
Menu directory... it doesn't need declareing right??--


x = read_bitmap("c:\\windows\\desktop\\tetris.bmp")
-- note: double backslash needed to get single backslash in a string

setWindowBackColor(win, Black)
-- new code starts here
procedure Close()
closeWindow(win)
end procedure
onClick[quit] = routine_id("Close")

WinMain(win,Normal)

    ~Thanks for all your help~