win32: let default handlers see WM_MOUSELEAVE
This fixes a problem where mousing over a button in Win7 leaves the button blue instead of fading back to normal color
This commit is contained in:
parent
68e60df7db
commit
afdfafa66a
|
@ -542,7 +542,9 @@
|
|||
(GetCursorPos p)
|
||||
(let ([f (location->window (POINT-x p) (POINT-y p))])
|
||||
(unless (eq? f (get-top-frame))
|
||||
(do-mouse w msg #f 'leave wParam lParam))))]
|
||||
(do-mouse w msg #f 'leave wParam lParam))))
|
||||
;; send message on to default handling (e.g., for buttons):
|
||||
#f]
|
||||
[else #f]))
|
||||
|
||||
(define/private (do-mouse control-hwnd msg nc? type wParam lParam)
|
||||
|
|
Loading…
Reference in New Issue
Block a user