OpenEuphoria

Fw: ListView Error

• Posted by Derek Parnell <ddparnell at bigpond.com> Oct 15, 2003
• 444 views

(resent - ISP was down)
----- Original Message ----- 
From: "Derek Parnell" <ddparnell at bigpond.com>
To: <EUforum at topica.com>
Subject: Re: ListView Error


----- Original Message ----- 
From: "Julio C. Galaret Viera" <euphoria at ured.net>
To: "EUforum" <EUforum at topica.com>
Subject: ListView Error


> 
> 
> When rightclicking on list views column headers, programs abort 
> displaying the following messages:
> 
> Win32lib.ew:22210 in function getPointerRelPost()
> attempt to exit a function without returning a value
> ...called from Win32lib.ew:24085 in function fDoNM_RCLICK()
> ...called from Win32lib.ew:24175 in function fDoNotify()
> ...
> ...
> ...
> 
> Errors can be replicated in demos supplied with Win32Lib (last version).
> 
> I'm running on Windows 95.
> 
> Bug or am I missing something?


A known bug that has been fixed. The function called fDoNM_RCLICK needs to be as
below...

----------------------------------------------------
function fDoNM_RCLICK(integer id, atom hWnd, atom wParam, atom lParam) 
----------------------------------------------------
    sequence xy
    atom keys
    integer lRealId

    lRealId = W32_fetch( lParam, NMHDR_idFrom )                     
    if lRealId != 0 then
        lRealId = getId( W32_fetch( lParam, NMHDR_hwndFrom ) )
    else
        lRealId = id
    end if        
    xy = getPointerRelPos(lRealId)
    keys = getKeyMasks(0)
VOID = invokeHandler( lRealId, w32HMouse, {WM_RBUTTONUP, xy[1],xy[2], keys}
    )
    return {kReturnNow}
end function


and the routine 'getPointerRelPos' should be ...

global function getPointerRelPos(integer pId)

    if validId(pId) then
        return getPointerPos() - ClientToScreen(pId, 0, 0)
    else                
        return {0,0}        
    end if
 
end function

-- 
Derek