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:
Matthew Flatt 2011-01-10 17:16:17 -07:00
parent 68e60df7db
commit afdfafa66a

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)