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

original commit: afdfafa66a6b45feb194efcc39964eef16b3058a
This commit is contained in:
Matthew Flatt 2011-01-10 17:16:17 -07:00
parent 3a1b93b05f
commit 27fffc48aa

View File

@ -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)