OpenEuphoria

Re: How to hide & close main win on open (win32lib)

• Posted by xEmul <xemul at ukr.net> Apr 08, 2005
• 429 views

Derek Parnell wrote:
> 
> xEmul wrote:
> > 
> > Hello!
> > 
> > I need help!
> > I have 2 windows: win1 and win2
> > win1 used by WinMain
> > How I can do following:
> > 1. on open win1 show modal win2, but don't show win1
> > 2. on close win2 close app without showing win1
> > 
> > (1) may be realised by openDialog. But if I close win2 - win1 is appear and
> > don't close
> > if I use openWindow(win2, Modal) - win1 is appear immediately,
> > but on close win2 correct work closeApp
> > 
> > It may be the same as showing password dialog
> > and closing app by hiting Cancel button on it
> > 
> This might be the sort of thing you are after ...
> 
> }}}
<eucode>
> include win32lib.ew
> 
> constant win1 = create( Window, "Application Window", 0, 0, 0, 300, 500, 0 )
> constant win2 = create( Window, "Login", 0, Center, Center, 200, 200, 0 )
> constant btn1 = create( Button, "Cancel", win2, 20, 20, 50, 25,0)
> constant btn2 = create( Button, "Accept", win2, 20, 80, 50, 25,0)
> 
> integer vCancelling vCancelling=0
> 
> procedure main_open( integer self, integer event, sequence params )
>     openDialog( win2 )
>     if vCancelling then
>         returnValue(-1)
>     end if
>     
> end procedure
> setHandler( win1, w32HOpen, routine_id("main_open") )
> 
> procedure click_cancel( integer self, integer event, sequence params )
>     vCancelling = 1
>     closeWindow( findParent(self))
> end procedure
> setHandler( btn1, w32HClick, routine_id("click_cancel") )
> 
> procedure click_accept( integer self, integer event, sequence params )
>     vCancelling = 0
>     setText(win1, "User has logged in")
>     closeWindow( findParent(self))
> end procedure
> setHandler( btn2, w32HClick, routine_id("click_accept") )
> 
> WinMain( win1, Normal )
> 
> </eucode>
{{{

> 
> -- 
> Derek Parnell
> Melbourne, Australia
> irc://irc.sorcery.net:9000/euphoria
> 

Thanks...
I tried the same variant much early...
But if on open main win we return -1 - it keep EXW.EXE in process list...