win32: fix key-release events

original commit: 3aad886019653bbabefe07b04385d9fd153bcaef
2010-12-09 17:43:37 -07:00 · 2010-12-09 17:43:37 -07:00 · d1d4a77960
commit d1d4a77960
parent 5cc99c019d
1 changed files with 6 additions and 3 deletions
--- a/collects/mred/private/wx/win32/key.rkt
+++ b/collects/mred/private/wx/win32/key.rkt
@ -215,12 +215,13 @@
           (if just-check?
               #t
               (let* ([id (if (number? id) (integer->char id) id)]
+		      [key-id (if (equal? id #\033)
+				  'escape
+				  id)]
                      [e (new key-event%
                              [key-code (if is-up?
                                           'release
-                                           (if (equal? id #\033)
-                                               'escape
-                                               id))]
+                                           key-id)]
                              [shift-down shift-down?]
                              [control-down control-down?]
                              [meta-down #f]
@ -229,5 +230,7 @@
                              [y 0]
                              [time-stamp 0]
                              [caps-down caps-down?])])
+		 (when is-up?
+		   (send e set-key-release-code key-id))
                 e))))))