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

Altered keymap% to not claim to handle key events that it doesn't

Browse Source 
Previously, `keymap%` would return #t for all shift, ctrl, and key release
events. DrRacket's editors would then not handle those events (correctly,
as they shouldn't handle already-handled events), meaning that the events
weren't sent to any snips.

original commit: 8ba8d01ec07d45ec67bd06df0670c7498fa20bb9
This commit is contained in:
Neil Toronto 2014-08-29 16:37:47 -04:00
parent d1eb9f9843
commit 02d85d78ab
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/gui-pkgs/gui-lib/mred/private/wxme/keymap.rkt
View File

@ -457,11 +457,12 @@
(def/public (handle-key-event [any? obj] [key-event% event]) (def/public (handle-key-event [any? obj] [key-event% event])
(let ([code (send event get-key-code)]) (let ([code (send event get-key-code)])
(or (eq? code 'shift) (if (or (eq? code 'shift)
(eq? code 'rshift) (eq? code 'rshift)
(eq? code 'control) (eq? code 'control)
(eq? code 'rcontrol) (eq? code 'rcontrol)
(eq? code 'release) (eq? code 'release))
prefixed?
(let ([score (get-best-score (let ([score (get-best-score
code code
(send event get-other-shift-key-code) (send event get-other-shift-key-code)