Re: Making a window dialog wait for a user response (Win32Lib)
- Posted by Chris Burch <chriscrylex at aol.com> Jul 03, 2006
- 720 views
Hi Hmmm, that is strange, it behaves as predicted on mine.
-- code generated by Win32Lib IDE v0.19.1 include Win32Lib.ew without warning -------------------------------------------------------------------------------- -- Window Window1 constant Window1 = createEx( Window, "Window1", 0, Default, Default, 400, 300, 0, 0 ) constant PushButton2 = createEx( PushButton, "Open sub", Window1, 56, 176, 88, 28, 0, 0 ) constant PushButton3 = createEx( PushButton, "Close", Window1, 180, 176, 88, 28, 0, 0 ) --------------------------------------------------------- -------------------------------------------------------------------------------- -- Window Window2 constant Window2 = createEx( Window, "Window 2", 0, Default, Default, 285, 196, 0, 0 ) constant PushButton5 = createEx( PushButton, "Click me", Window2, 84, 76, 88, 28, 0, 0 ) --------------------------------------------------------- -------------------------------------------------------------------------------- procedure PushButton2_onClick (integer self, integer event, sequence params)--params is () openDialog(Window2) end procedure setHandler( PushButton2, w32HClick, routine_id("PushButton2_onClick")) -------------------------------------------------------------------------------- procedure PushButton3_onClick (integer self, integer event, sequence params)--params is () abort(0) end procedure setHandler( PushButton3, w32HClick, routine_id("PushButton3_onClick")) -------------------------------------------------------------------------------- procedure PushButton5_onClick (integer self, integer event, sequence params)--params is () closeWindow(Window2) end procedure setHandler( PushButton5, w32HClick, routine_id("PushButton5_onClick")) WinMain( Window1,Normal )
You cant close Window1 until you close Window2 Chris http://members.aol.com/chriscrylex/euphoria.htm http://uboard.proboards32.com/ http://members.aol.com/chriscrylex/EUSQLite/eusql.html