bug with mousetraps in win32ib 0.60..4
- Posted by CoJaBo <cojabo at suscom.net> Aug 23, 2004
- 458 views
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"))