OpenEuphoria

Re: Making a window dialog wait for a user response (Win32Lib)

• Posted by Chris Burch <chriscrylex at aol.com> Jul 03, 2006
• 722 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