include win32lib.ew

constant SimpleWin =  create( Window, "Tiny 3", 0, Default, Default, 200, 150, 0 ),
		 ExitMenu = create( Menu, "E&xit", SimpleWin, 0, 0, 0, 0, 0 ), 
		 ExitNow = create(MenuItem,"Now!", ExitMenu, 0, 0, 0, 0, 0),
		 AboutBox = create( PushButton, "About", SimpleWin, 10, 10, 50, 25, 0 )
--------

procedure onButton_About( integer self, integer event, sequence params)
	object jk
    jk = message_box("...it's GREAT !", "* Euphoria *", 0 )
end procedure
setHandler( AboutBox, w32HClick, routine_id( "onButton_About" ) )

--------

procedure onMenu_Exit( integer self, integer event, sequence params)
    closeWindow( SimpleWin )
end procedure
setHandler( ExitNow, w32HClick, routine_id("onMenu_Exit") )


-- go ahead, run the window ! --
WinMain( SimpleWin,Normal )
--------------------------------
