# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1528989452 -7200
# Node ID 16978aaed2f62240bd454572ed7469ec045475bf
# Parent  e4cff94154d28b784f94a6a967e5451fe0c9907b
#UI_ENHANCEMENT by cg
class: DataSetBuilder
changed: #processEvent:

diff -r e4cff94154d2 -r 16978aaed2f6 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'!