--- a/EditField.st	Tue Feb 25 23:40:10 1997 +0100
+++ b/EditField.st	Wed Feb 26 00:15:33 1997 +0100
@@ -1478,7 +1478,11 @@
         ].
         leave ifFalse:[
             "/ forward it as a Focus-step
-            ^ super keyPress:#FocusNext x:x y:y
+            self sensor shiftDown ifTrue:[
+                ^ super keyPress:#FocusPrevious x:x y:y
+            ] ifFalse:[
+                ^ super keyPress:#FocusNext x:x y:y
+            ]
         ]
     ].
 
@@ -1553,7 +1557,7 @@
     self resizeOrScroll.
 
     "Modified: 2.5.1996 / 17:24:16 / stefan"
-    "Modified: 28.1.1997 / 12:42:41 / cg"
+    "Modified: 26.2.1997 / 00:14:06 / cg"
 !
 
 resizeOrScroll
@@ -1901,5 +1905,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.82 1997-02-25 19:16:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.83 1997-02-25 23:15:33 cg Exp $'
 ! !