# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1571042912 -7200
# Node ID f26ed65a4360d74a59d6912ac2973939730342bc
# Parent  0040ac44a2f3cf097394195680def16d75c1a83f
#UI_ENHANCEMENT by exept
class: UIPainter
changed: #processEvent:

diff -r 0040ac44a2f3 -r f26ed65a4360 UIPainter.st
--- 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.
         ].