OpenEuphoria

Re: Bug in Win32Lib 0.70.4

• Posted by CChris <christian.cuvier at ag?icult?re.gouv.fr> Mar 22, 2008
• 970 views

Pete Stoner wrote:
> 
> 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.
> 
> }}}
<eucode>
> 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)
> </eucode>
{{{

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


Thanks for reporting tis.
I'm on vacation right now and don't have the code base at hand. When I'm back to
business, rougyhlyh 1 month from now, I can correct this issue when a child of
{id} is a menu or similar.

CChris