equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1997 by eXept Software AG |
4 COPYRIGHT (c) 1997 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
3420 |
3422 |
3421 processEvent:anEvent |
3423 processEvent:anEvent |
3422 "filter keyboard edit-events typed into the listOfItemsView. |
3424 "filter keyboard edit-events typed into the listOfItemsView. |
3423 Return true, if I have eaten the event" |
3425 Return true, if I have eaten the event" |
3424 |
3426 |
3425 <resource: #keyboard (#Delete #BackSPace #Cut #Copy #Paste #CtrlCursorDown #CtrlCursorUp )> |
3427 <resource: #keyboard (#Delete #BackSPace #Cut #Copy #Paste |
|
3428 #CtrlCursorDown #CmdCursorDown #AltCursorDown |
|
3429 #CtrlCursorUp #CmdCursorUp #AltCursorUp)> |
3426 |
3430 |
3427 |evView inView rawKey key| |
3431 |evView inView rawKey key| |
3428 |
3432 |
3429 anEvent isKeyPressEvent ifFalse:[^ false]. |
3433 anEvent isKeyPressEvent ifFalse:[^ false]. |
3430 |
3434 |
3446 ]. |
3450 ]. |
3447 |
3451 |
3448 key == #Copy ifTrue:[ self doCopy. ^ true ]. |
3452 key == #Copy ifTrue:[ self doCopy. ^ true ]. |
3449 key == #Paste ifTrue:[ self doPaste. ^ true ]. |
3453 key == #Paste ifTrue:[ self doPaste. ^ true ]. |
3450 |
3454 |
3451 (rawKey == #CtrlCursorUp) ifTrue:[ |
3455 ((rawKey == #CtrlCursorUp) |
3452 self doMoveUp. |
3456 or:[(rawKey == #CmdCursorUp) |
|
3457 or:[(rawKey == #AltCursorUp) ]]) ifTrue:[ |
|
3458 self doMoveUp. |
3453 ^ true. |
3459 ^ true. |
3454 ]. |
3460 ]. |
3455 (rawKey == #CtrlCursorDown) ifTrue:[ |
3461 ((rawKey == #CtrlCursorDown) |
|
3462 or:[(rawKey == #CmdCursorDown) |
|
3463 or:[(rawKey == #AltCursorDown) ]]) ifTrue:[ |
3456 self doMoveDown. |
3464 self doMoveDown. |
3457 ^ true. |
3465 ^ true. |
3458 ]. |
3466 ]. |
3459 |
3467 |
3460 ^ false. |
3468 ^ false. |
|
3469 |
|
3470 "Modified: / 14-06-2018 / 17:17:21 / Claus Gittinger" |
3461 ! ! |
3471 ! ! |
3462 |
3472 |
3463 !DataSetBuilder methodsFor:'initialization'! |
3473 !DataSetBuilder methodsFor:'initialization'! |
3464 |
3474 |
3465 initialize |
3475 initialize |