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

win32: fix alt-combination handling

Browse Source 
original commit: 518cff7b6362be675d506dc90175fe5be455e7e0
This commit is contained in:
Matthew Flatt 2010-12-09 15:18:39 -07:00
parent 3c58e55730
commit 2b7d3981c0
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
collects/mred/private/wx/win32/window.rkt
View File

@ -150,22 +150,26 @@
[(= msg WM_KILLFOCUS) [(= msg WM_KILLFOCUS)
(queue-window-event this (lambda () (on-kill-focus))) (queue-window-event this (lambda () (on-kill-focus)))
0] 0]
[(and (= msg WM_SYSKEYDOWN) [(= msg WM_SYSKEYDOWN)
(or (= wParam VK_MENU) (= wParam VK_F4))) ;; F4 is close (let ([result (if (or (= wParam VK_MENU) (= wParam VK_F4)) ;; F4 is close
(unhide-cursor) (begin
(begin0 (unhide-cursor)
(default w msg wParam lParam) (default w msg wParam lParam))
(do-key w msg wParam lParam #f #f void))] 0)])
(do-key w msg wParam lParam #f #f void)
result)]
[(= msg WM_KEYDOWN) [(= msg WM_KEYDOWN)
(do-key w msg wParam lParam #f #f default)] (do-key w msg wParam lParam #f #f default)]
[(= msg WM_KEYUP) [(= msg WM_KEYUP)
(do-key w msg wParam lParam #f #t default)] (do-key w msg wParam lParam #f #t default)]
[(and (= msg WM_SYSCHAR) [(= msg WM_SYSCHAR)
(= wParam VK_MENU)) (let ([result (if (= wParam VK_MENU)
(unhide-cursor) (begin
(begin0 (unhide-cursor)
(default w msg wParam lParam) (default w msg wParam lParam))
(do-key w msg wParam lParam #t #f void))] 0)])
(do-key w msg wParam lParam #t #f void)
result)]
[(= msg WM_CHAR) [(= msg WM_CHAR)
(do-key w msg wParam lParam #t #f default)] (do-key w msg wParam lParam #t #f default)]
[(= msg WM_COMMAND) [(= msg WM_COMMAND)