OpenEuphoria

Problem in win32lib 0.58.0 (2nd Jan 2003)

• Posted by Pete Lomax <petelomax at blueyonder.co.uk> Mar 05, 2003
• 478 views

The following code works under 0.55.1, 0.55.5, 0.57.12 but not 0.58.0.

The problem is that keying Ctrl Q should bring up a smaller window. It
does, but it immediately disappears behind the other one.

include win32lib.ew
without warning

global constant MAIN =3D create(Window,"",0,0,0,Default,Default,0)
setText(MAIN, sprintf("Win32Lib version %d.%d Patch#%d",
Win32LibVersion[1..3]))

constant=20
Helpw =3D create( Window, "Help", MAIN, 100, 20, 800, 210, 0),
Helpl =3D create( List, "", Helpw, 10, 40, {w32Edge,-10}, {w32Edge,-10},
0 ),
Subw  =3D create( Window, "Subhelp", MAIN, 140, 110, 200, 610, 0),
Subl  =3D create( List, "", Subw, 10, 40, {w32Edge,-10}, {w32Edge,-10},
0 )

procedure onkeydowninlist(integer self, integer event, sequence
params)
	if params[1]=3DVK_ESCAPE then closeWindow(MAIN) end if
	if params[1] =3D 'Q' and params[2]=3DControlMask then	-- Ctrl Q
		setVisible(Subw,True)
	end if=20
end procedure
setHandler({Helpl,Subl},w32HKeyDown,routine_id("onkeydowninlist"))

procedure onactivate(integer self, integer event, sequence params)
	addItem(Helpl, "line1" )
	addItem(Subl,"a")
	setVisible(Helpw,True)
	setFocus(Helpl)
end procedure
setHandler(MAIN,w32HActivate, routine_id("onactivate"))

WinMain(MAIN,Maximize)