OpenEuphoria

2 bugs in Win32Lib

• Posted by CoJaBo <cojabo at suscom.net> Sep 12, 2004
• 474 views

Mousetraps in groups still don't work:

--  code generated by Win32Lib IDE v0.18.22

 
include Win32Lib.ew
without warning

--------------------------------------------------------------------------------
--  Window w
constant w = createEx( Window, "Window1", 0, Default, Default, 400, 300, 0, 0 )
constant PushButton2 = createEx( PushButton, "PushButton2", w, 72, 124, 88, 28,
0, 0 )
constant Group3 = createEx( Group, "Group3", w, 248, 160, 148, 60, 0, 0 )
constant PushButton4 = createEx( PushButton, "PushButton4", Group3, 12, 16, 88,
28, 0, 0 )
---------------------------------------------------------
--------------------------------------------------------------------------------
?createMouseTrap(w,PushButton2)
?createMouseTrap(w,PushButton4)



procedure MouseTrap(integer self, integer event, sequence params)
?params
end procedure
setHandler(w, w32HMouseTrap, routine_id("MouseTrap"))



WinMain( w,Normal )

add/removeStyle() don't work properly on windows:

--  code generated by Win32Lib IDE v0.18.22

 
include Win32Lib.ew
without warning

--------------------------------------------------------------------------------
--  Window w
constant w = createEx( Window, "Window1", 0, Default, Default, 400, 300, 0, 0 )
constant PushButton2 = createEx( PushButton, "PushButton2", w, 116, 56, 88, 28,
0, 0 )
---------------------------------------------------------
--------------------------------------------------------------------------------
procedure PushButton2_onClick (integer self, integer event, sequence
params)--params is ()
addStyle(w,{0,WS_EX_TOPMOST})
end procedure
setHandler( PushButton2, w32HClick, routine_id("PushButton2_onClick"))


WinMain( w,Normal )