1. Problem in win32lib 0.58.0 (2nd Jan 2003)
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)
2. Re: Problem in win32lib 0.58.0 (2nd Jan 2003)
Works just fine using v0.58.2. I guess I must have fixed something with out
realising it.
http://www.users.bigpond.com/ddparnell/euphoria/w32005802.zip
----------------
cheers,
Derek Parnell
----- Original Message -----
From: "Pete Lomax" <petelomax at blueyonder.co.uk>
To: "EUforum" <EUforum at topica.com>
Subject: Problem in win32lib 0.58.0 (2nd Jan 2003)
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 = create(Window,"",0,0,0,Default,Default,0)
setText(MAIN, sprintf("Win32Lib version %d.%d Patch#%d",
Win32LibVersion[1..3]))
constant
Helpw = create( Window, "Help", MAIN, 100, 20, 800, 210, 0),
Helpl = create( List, "", Helpw, 10, 40, {w32Edge,-10}, {w32Edge,-10},
0 ),
Subw = create( Window, "Subhelp", MAIN, 140, 110, 200, 610, 0),
Subl = create( List, "", Subw, 10, 40, {w32Edge,-10}, {w32Edge,-10},
0 )
procedure onkeydowninlist(integer self, integer event, sequence
params)
if params[1]=VK_ESCAPE then closeWindow(MAIN) end if
if params[1] = 'Q' and params[2]=ControlMask then -- Ctrl Q
setVisible(Subw,True)
end if
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)
==^^===============================================================
This email was sent to: ddparnell at bigpond.com
TOPICA - Start your own email discussion group. FREE!
3. Re: Problem in win32lib 0.58.0 (2nd Jan 2003)
On Thu, 6 Mar 2003 08:06:42 +1100, Derek Parnell
<ddparnell at bigpond.com> wrote:
>
>Works just fine using v0.58.2. I guess I must have fixed something with =
out
>realising it.
You meant with out releasing it, surely 
Pete
works fine now, thanks
