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

Gtk: adjust handling of composed input

Browse Source 
Intended to fix #29
This commit is contained in:
Matthew Flatt 2016-03-10 13:10:11 -07:00
parent cf2859049a
commit c4ef1829fc
1 changed files with 22 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
gui-lib/mred/private/wx/gtk/window.rkt
View File

@ -269,7 +269,8 @@
(or (or
(map-key-code kv) (map-key-code kv)
(integer->char (gdk_keyval_to_unicode kv))))] (integer->char (gdk_keyval_to_unicode kv))))]
[key-code (if scroll? [key-code (cond
[scroll?
(let ([dir (GdkEventScroll-direction event)]) (let ([dir (GdkEventScroll-direction event)])
(cond (cond
[(= dir GDK_SCROLL_UP) 'wheel-up] [(= dir GDK_SCROLL_UP) 'wheel-up]
@ -284,13 +285,14 @@
[(positive? dx) 'wheel-right] [(positive? dx) 'wheel-right]
[(negative? dx) 'wheel-left] [(negative? dx) 'wheel-left]
[else #f])] [else #f])]
[else #f])) [else #f]))]
(keyval->code (GdkEventKey-keyval event)))] [(and (string? im-str)
[k (new key-event%
[key-code (if (and (string? im-str)
(= 1 (string-length im-str))) (= 1 (string-length im-str)))
(string-ref im-str 0) (string-ref im-str 0)]
key-code)] [else
(keyval->code (GdkEventKey-keyval event))])]
[k (new key-event%
[key-code key-code]
[shift-down (bit? modifiers GDK_SHIFT_MASK)] [shift-down (bit? modifiers GDK_SHIFT_MASK)]
[control-down (bit? modifiers GDK_CONTROL_MASK)] [control-down (bit? modifiers GDK_CONTROL_MASK)]
[meta-down (bit? modifiers GDK_MOD1_MASK)] [meta-down (bit? modifiers GDK_MOD1_MASK)]