Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
+cursorKeys to move widgets
authorClaus Gittinger <cg@exept.de>
Sun, 07 Mar 1999 14:35:51 +0100
changeset 1048 d6d4b7abfdd0
parent 1047 f2d55d342903
child 1049 12fc1891232a
+cursorKeys to move widgets
UIObjectView.st file | annotate | diff | comparison | revisions 
--- 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
hg/stx-libtool2