suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

racket/gui win32: fix duplicate pre- events for controls

Browse Source 
original commit: 7ddd99cf52c5476abead64a23bf441a21dd15507
This commit is contained in:
Matthew Flatt 2012-10-02 07:16:53 -06:00
parent ed25173112
commit 2eb1a30a2e
1 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/wx/win32/item.rkt
View File

@ -30,8 +30,6 @@
(super-new) (super-new)
(define/public (ctlproc w msg wParam lParam default) (define/public (ctlproc w msg wParam lParam default)
(if (try-mouse w msg wParam lParam)
0
(cond (cond
[(= msg WM_SETFOCUS) [(= msg WM_SETFOCUS)
(queue-window-event this (lambda () (on-set-focus))) (queue-window-event this (lambda () (on-set-focus)))
@ -40,7 +38,7 @@
(queue-window-event this (lambda () (on-kill-focus))) (queue-window-event this (lambda () (on-kill-focus)))
(default w msg wParam lParam)] (default w msg wParam lParam)]
[else [else
(wndproc-for-ctlproc w msg wParam lParam default)]))) (wndproc-for-ctlproc w msg wParam lParam default)]))
(define/public (wndproc-for-ctlproc w msg wParam lParam default) (define/public (wndproc-for-ctlproc w msg wParam lParam default)
(wndproc w msg wParam lParam default)))) (wndproc w msg wParam lParam default))))