diff --git a/collects/mred/private/wx/win32/canvas.rkt b/collects/mred/private/wx/win32/canvas.rkt index 8f965dc57c..e1c0f655d0 100644 --- a/collects/mred/private/wx/win32/canvas.rkt +++ b/collects/mred/private/wx/win32/canvas.rkt @@ -90,7 +90,8 @@ is-auto-scroll? is-disabled-scroll? get-virtual-width get-virtual-height reset-auto-scroll - refresh-for-autoscroll) + refresh-for-autoscroll + try-mouse) (define hscroll? (or (memq 'hscroll style) (memq 'auto-hscroll style))) @@ -238,7 +239,10 @@ [else (super wndproc w msg wParam lParam default)])) (define/override (wndproc-for-ctlproc w msg wParam lParam default) - (default w msg wParam lParam)) + ;; act on clicks for a combo field: + (if (try-mouse w msg wParam lParam) + 0 + (default w msg wParam lParam))) (define dc (new dc% [canvas this] [transparent? (memq 'transparent style)])) (send dc start-backing-retained) diff --git a/collects/mred/private/wx/win32/item.rkt b/collects/mred/private/wx/win32/item.rkt index 7140637943..5fedef7d8a 100644 --- a/collects/mred/private/wx/win32/item.rkt +++ b/collects/mred/private/wx/win32/item.rkt @@ -20,7 +20,6 @@ (class % (inherit on-set-focus on-kill-focus - try-mouse wndproc) (init-field [callback void])