--- a/UIPainter.st Mon Oct 14 10:31:43 2019 +0200
+++ b/UIPainter.st Mon Oct 14 10:48:32 2019 +0200
@@ -4044,31 +4044,32 @@
<resource: #keyboard (#CtrlCursorUp #CtrlCursorDown #CtrlCursorLeft #CtrlCursorRight)>
- |key|
+ |key rawKey|
anEvent isKeyPressEvent ifTrue:[
anEvent targetView == treeView ifFalse:[^ false].
treeView hasFocus ifFalse:[^ false].
key := anEvent key.
+ rawKey := anEvent rawKey.
"/ (anEvent rawKey == #Cmdr) ifTrue:[
"/ self openNameEditorOnTreeSelection.
"/ ^ true.
"/ ].
- (anEvent rawKey == #CtrlCursorUp) ifTrue:[
+ ((rawKey == #CtrlCursorUp) or:[ rawKey == #AltCursorUp ]) ifTrue:[
self doStepUp.
^ true.
].
- (anEvent rawKey == #CtrlCursorDown) ifTrue:[
+ ((rawKey == #CtrlCursorDown) or:[ rawKey == #AltCursorDown ]) ifTrue:[
self doStepDown.
^ true.
].
- (anEvent rawKey == #CtrlCursorLeft) ifTrue:[
+ ((rawKey == #CtrlCursorLeft) or:[ rawKey == #AltCursorLeft ]) ifTrue:[
self doStepOut.
^ true.
].
- (anEvent rawKey == #CtrlCursorRight) ifTrue:[
+ ((rawKey == #CtrlCursorRight) or:[ rawKey == #AltCursorRight ]) ifTrue:[
self doStepIn.
^ true.
].