From 2eb1a30a2e14ac00abd91d681a22bc0425b2b8c0 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 2 Oct 2012 07:16:53 -0600 Subject: [PATCH] racket/gui win32: fix duplicate pre- events for controls original commit: 7ddd99cf52c5476abead64a23bf441a21dd15507 --- collects/mred/private/wx/win32/item.rkt | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/collects/mred/private/wx/win32/item.rkt b/collects/mred/private/wx/win32/item.rkt index bc549375..71406379 100644 --- a/collects/mred/private/wx/win32/item.rkt +++ b/collects/mred/private/wx/win32/item.rkt @@ -30,17 +30,15 @@ (super-new) (define/public (ctlproc w msg wParam lParam default) - (if (try-mouse w msg wParam lParam) - 0 - (cond - [(= msg WM_SETFOCUS) - (queue-window-event this (lambda () (on-set-focus))) - (default w msg wParam lParam)] - [(= msg WM_KILLFOCUS) - (queue-window-event this (lambda () (on-kill-focus))) - (default w msg wParam lParam)] - [else - (wndproc-for-ctlproc w msg wParam lParam default)]))) + (cond + [(= msg WM_SETFOCUS) + (queue-window-event this (lambda () (on-set-focus))) + (default w msg wParam lParam)] + [(= msg WM_KILLFOCUS) + (queue-window-event this (lambda () (on-kill-focus))) + (default w msg wParam lParam)] + [else + (wndproc-for-ctlproc w msg wParam lParam default)])) (define/public (wndproc-for-ctlproc w msg wParam lParam default) (wndproc w msg wParam lParam default))))