# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 920813751 -3600
# Node ID d6d4b7abfdd01d7ac2ad84493fe8ea1b9c94de8a
# Parent  f2d55d34290397b4043343d0a6fe834a5b12c24f
+cursorKeys to move widgets

diff -r f2d55d342903 -r d6d4b7abfdd0 UIObjectView.st
--- 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