suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

win32: allow GetCursorPos to fail

Browse Source 
in case the current desktop isn't the input desktop
This commit is contained in:
Matthew Flatt 2011-01-15 14:38:39 -07:00
parent 6e65311702
commit d1dc1303c2
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mred/private/wx/win32/window.rkt
View File

@ -127,8 +127,7 @@
(define-user32 TrackMouseEvent (_wfun _TRACKMOUSEEVENT-pointer -> (r : _BOOL)
-> (unless r (failed 'TrackMouseEvent))))
(define-user32 GetCursorPos (_wfun _POINT-pointer -> (r : _BOOL)
-> (unless r (failed 'GetCursorPos))))
(define-user32 GetCursorPos (_wfun _POINT-pointer -> _BOOL))
(defclass window% object%
(init-field parent hwnd)
@ -526,8 +525,8 @@
(do-mouse w msg #f 'motion wParam lParam)]
[(= msg WM_MOUSELEAVE)
(let ([p (make-POINT 0 0)])
(GetCursorPos p)
(let ([f (location->window (POINT-x p) (POINT-y p))])
(let ([f (and (GetCursorPos p)
(location->window (POINT-x p) (POINT-y p)))])
(unless (and (eq? f (get-top-frame))
(send f in-content? p))
(do-mouse w msg #f 'leave wParam lParam))))