equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 2002 by eXept Software AG |
4 COPYRIGHT (c) 2002 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 |
1052 processEvent:anEvent |
1054 processEvent:anEvent |
1053 "filter keyboard events. |
1055 "filter keyboard events. |
1054 Return true, if I have eaten the event" |
1056 Return true, if I have eaten the event" |
1055 |
1057 |
1056 <resource: #keyboard (#CursorLeft #FocusPrevious #FocusNext |
1058 <resource: #keyboard (#CursorLeft #FocusPrevious #FocusNext |
1057 #Cut #Copy #Delete #Replace #Paste )> |
1059 #Cut #Copy #Delete #Replace #Paste |
|
1060 #BackSpace)> |
1058 |
1061 |
1059 |focusView key rawKey| |
1062 |focusView key rawKey| |
1060 |
1063 |
1061 anEvent isKeyPressEvent ifFalse:[^ false]. |
1064 anEvent isKeyPressEvent ifFalse:[^ false]. |
1062 |
1065 |
1094 ]. |
1097 ]. |
1095 (key == #Copy) ifTrue:[ |
1098 (key == #Copy) ifTrue:[ |
1096 self doCopy. |
1099 self doCopy. |
1097 ^ true |
1100 ^ true |
1098 ]. |
1101 ]. |
1099 (key == #Delete) ifTrue:[ |
1102 ((key == #Delete) or:[ key == #BackSpace ]) ifTrue:[ |
1100 self doDelete. |
1103 self doDelete. |
1101 ^ true |
1104 ^ true |
1102 ]. |
1105 ]. |
1103 (key == #Paste) ifTrue:[ |
1106 (key == #Paste) ifTrue:[ |
1104 self pasteFiles. |
1107 self pasteFiles. |