--- a/UIObjectView.st Sat Mar 06 18:16:25 1999 +0100
+++ b/UIObjectView.st Sun Mar 07 14:35:51 1999 +0100
@@ -498,7 +498,8 @@
keyPress:key x:x y:y
"any key pressed
"
- <resource: #keyboard ( #Delete #BackSpace #Cut #Copy #Paste #Cmdu ) >
+ <resource: #keyboard ( #CursorUp #CursorDown #CursorLeft #CursorRight
+ #Delete #BackSpace #Cut #Copy #Paste #Cmdu ) >
(key == #Cut or:[key == #Delete or:[key == #BackSpace]]) ifTrue: [
^ self deleteSelection
@@ -507,9 +508,14 @@
key == #Paste ifTrue:[ ^ self pasteBuffer].
key == #Cmdu ifTrue:[ ^ self undoLast ]. "/ #Undo
+ key == #CursorUp ifTrue:[^self moveSelectionUp].
+ key == #CursorDown ifTrue:[^self moveSelectionDown].
+ key == #CursorRight ifTrue:[^self moveSelectionRight].
+ key == #CursorLeft ifTrue:[^self moveSelectionLeft].
+
super keyPress:key x:x y:y
- "Modified: / 31.10.1997 / 20:28:00 / cg"
+ "Modified: / 6.3.1999 / 22:47:48 / cg"
!
processEvent:anEvent