OpenEuphoria

Bug in Win32Lib 0.70.4

• Posted by Pete Stoner <stoner.pete at gmail??om> Mar 20, 2008
• 988 views

CChris, I've found a bug in 0.70.4, in the restoreMousePointer routine calls. It
fails with Error code 472, getRect:GetWindowRect failed when there is a popup
menu. It seems to try a getRect on the popup which crashes the prog. The
following shows the error.

without warning
include win32lib.ew
constant Main = create(Window, "Test", 0, 0, 0, 200, 100, 0)
constant pop = create(Popup, "", Main, 0, 0, 0, 0, 0)
constant Item = create(MenuItem, "Option 1", pop, 0, 0, 0, 0, 0)

global procedure Win_OnOpen( integer self, integer event, sequence parms)
    setMousePointer( {Main}, WaitPointer )
    restoreMousePointer({Main})
end procedure
setHandler(Main, w32HOpen, routine_id("Win_OnOpen") )

WinMain(Main, Normal)

if I do a setMousePointer( {Main}, ArrowPointer ) instead of the
restoreMousePointer its fine.

PeteS