From afdfafa66a6b45feb194efcc39964eef16b3058a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 10 Jan 2011 17:16:17 -0700 Subject: [PATCH] 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 --- collects/mred/private/wx/win32/window.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/wx/win32/window.rkt b/collects/mred/private/wx/win32/window.rkt index 5ed2a4a1bb..13f958c07c 100644 --- a/collects/mred/private/wx/win32/window.rkt +++ b/collects/mred/private/wx/win32/window.rkt @@ -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)