Keyboard mapping: code updated to catch up with KeyboardMap jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Wed, 12 Jul 2017 09:59:48 +0200
branchjv
changeset 681 61b376859809
parent 673 7c5c1bc3be7b
child 696 268bf2c60556
Keyboard mapping: code updated to catch up with KeyboardMap
ext/ui/SimpleViewInteractor.st
--- a/ext/ui/SimpleViewInteractor.st	Thu Nov 24 21:56:23 2016 +0000
+++ b/ext/ui/SimpleViewInteractor.st	Wed Jul 12 09:59:48 2017 +0200
@@ -117,9 +117,20 @@
     value isCharacter ifTrue:[
         view device simulateKeyboardInput: value inViewId:view id.
     ] ifFalse:[ value isSymbol ifTrue:[
-        | raw key modifiers ctrl cmd shift |
+        | raw modifiers ctrl cmd shift |
+
+        raw := view device keyboardMap bindingForLogical: value.
+        raw isNil ifTrue:[ 
+            | aliases |
 
-        raw := view device keyboardMap keyAtValue: value ifAbsent: value.
+            aliases := view device keyboardMap aliasesForLogical: value.
+            aliases notEmptyOrNil ifTrue:[ 
+                raw := aliases anElement.
+            ].
+        ].
+        raw isNil ifTrue:[ 
+            raw := value.
+        ].
         ctrl := cmd := shift := false.
         (raw startsWith: 'Ctrl') ifTrue:[
             ctrl := true.
@@ -174,7 +185,7 @@
     ].
 
     "Created: / 23-07-2014 / 07:35:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 12-02-2015 / 00:07:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 12-07-2017 / 09:57:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 wait