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