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

win32: fix key-release events

Browse Source
This commit is contained in:
Matthew Flatt 2010-12-09 17:43:37 -07:00
parent b16f8fb16a
commit 3aad886019
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/mred/private/wx/win32/key.rkt
View File

@ -215,12 +215,13 @@
(if just-check? (if just-check?
#t #t
(let* ([id (if (number? id) (integer->char id) id)] (let* ([id (if (number? id) (integer->char id) id)]
[key-id (if (equal? id #\033)
'escape
id)]
[e (new key-event% [e (new key-event%
[key-code (if is-up? [key-code (if is-up?
'release 'release
(if (equal? id #\033) key-id)]
'escape
id))]
[shift-down shift-down?] [shift-down shift-down?]
[control-down control-down?] [control-down control-down?]
[meta-down #f] [meta-down #f]
@ -229,5 +230,7 @@
[y 0] [y 0]
[time-stamp 0] [time-stamp 0]
[caps-down caps-down?])]) [caps-down caps-down?])])
(when is-up?
(send e set-key-release-code key-id))
e)))))) e))))))