OpenEuphoria

1. bug with mousetraps in win32ib 0.60..4

• Posted by CoJaBo <cojabo at suscom.net> Aug 23, 2004
• 493 views
• Last edited Aug 24, 2004

This program should display a sequence when
either of the buttuns is pushed, but it doesn't
for the one in the group(however it displays the
sequence if you click near the top-left corner
of the window.)
This seems to be a problem with getRect():
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"))