#UI_ENHANCEMENT by cg draft
authorClaus Gittinger <cg@exept.de>
Thu, 14 Jun 2018 17:17:32 +0200
changeset 3565 16978aaed2f6
parent 3564 e4cff94154d2
child 3566 278888b1ca84
#UI_ENHANCEMENT by cg class: DataSetBuilder changed: #processEvent:
DataSetBuilder.st
--- a/DataSetBuilder.st	Fri Jun 01 14:13:42 2018 +0200
+++ b/DataSetBuilder.st	Thu Jun 14 17:17:32 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -3422,7 +3424,9 @@
     "filter keyboard edit-events typed into the listOfItemsView.
      Return true, if I have eaten the event"
 
-    <resource: #keyboard (#Delete #BackSPace #Cut #Copy #Paste #CtrlCursorDown #CtrlCursorUp )>
+    <resource: #keyboard (#Delete #BackSPace #Cut #Copy #Paste 
+                          #CtrlCursorDown #CmdCursorDown #AltCursorDown 
+                          #CtrlCursorUp #CmdCursorUp #AltCursorUp)>
 
     |evView inView rawKey key|
 
@@ -3448,16 +3452,22 @@
     key == #Copy  ifTrue:[ self doCopy.  ^ true ].
     key == #Paste ifTrue:[ self doPaste. ^ true ].
 
-    (rawKey == #CtrlCursorUp) ifTrue:[
-        self doMoveUp.
+    ((rawKey == #CtrlCursorUp)
+     or:[(rawKey == #CmdCursorUp)
+     or:[(rawKey == #AltCursorUp) ]]) ifTrue:[
+       self doMoveUp.
         ^ true.
     ].
-    (rawKey == #CtrlCursorDown) ifTrue:[
+    ((rawKey == #CtrlCursorDown)
+     or:[(rawKey == #CmdCursorDown)
+     or:[(rawKey == #AltCursorDown) ]]) ifTrue:[
         self doMoveDown.
         ^ true.
     ].
 
     ^ false.
+
+    "Modified: / 14-06-2018 / 17:17:21 / Claus Gittinger"
 ! !
 
 !DataSetBuilder methodsFor:'initialization'!