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)