OpenEuphoria

Re: Easy Euphoria a Fairy tale

• Posted by ghaberek (admin) Jun 01, 2015
• 3762 views

I just want to point out that if you want to exit a Win32Lib app, you should call closeApp() and not abort(). The same can be achieved with exit_main() in wxEuphoria.

include Win32Lib.ew 
 
constant Window1 = createEx( Window, "Window1", 0, Default, Default, 214, 161, 0, 0 ) 
constant ClickMe = createEx( PushButton, "Click me!", Window1, 50, 40, 90, 30, 0, 0 ) 
 
-------------------------------------------------------------------------------- 
procedure ClickMe_onClick (integer self, integer event, sequence params)--params is ()  
 
    VOID = message_box("Click me if you dare!", "Test", MB_ICONEXCLAMATION) 
    closeApp() 
 
end procedure 
setHandler( ClickMe, w32HClick, routine_id("ClickMe_onClick"))  
--------------------------------------------------------- 
 
WinMain( Window1,Normal ) 

-Greg