--- 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