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

win32: fix combo-field% click handling

Browse Source 
Closes PR 13173

Merge to v5.3.1
This commit is contained in:
Matthew Flatt 2012-10-09 20:04:33 -06:00
parent 7d317f1e96
commit 75008f14d7
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mred/private/wx/win32/canvas.rkt
View File

@ -90,7 +90,8 @@
is-auto-scroll? is-disabled-scroll? is-auto-scroll? is-disabled-scroll?
get-virtual-width get-virtual-height get-virtual-width get-virtual-height
reset-auto-scroll reset-auto-scroll
refresh-for-autoscroll) refresh-for-autoscroll
try-mouse)
(define hscroll? (or (memq 'hscroll style) (define hscroll? (or (memq 'hscroll style)
(memq 'auto-hscroll style))) (memq 'auto-hscroll style)))
@ -238,7 +239,10 @@
[else (super wndproc w msg wParam lParam default)])) [else (super wndproc w msg wParam lParam default)]))
(define/override (wndproc-for-ctlproc 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)])) (define dc (new dc% [canvas this] [transparent? (memq 'transparent style)]))
(send dc start-backing-retained) (send dc start-backing-retained)

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

@ -20,7 +20,6 @@
(class % (class %
(inherit on-set-focus (inherit on-set-focus
on-kill-focus on-kill-focus
try-mouse
wndproc) wndproc)
(init-field [callback void]) (init-field [callback void])