--- a/EnterFieldGroup.st	Mon Aug 03 18:41:20 1998 +0200
+++ b/EnterFieldGroup.st	Tue Aug 04 02:45:30 1998 +0200
@@ -633,14 +633,14 @@
     and:[fs includesIdentical:aField]]) ifTrue:[
         ((key == #CursorUp) or:[key == #PreviousField]) ifTrue:[
             (thisIndex == 1) ifTrue:[
-                ^ wg focusPrevious
+                ^ wg focusPreviousFrom:aField
             ].
         ].
         ((key == #CursorDown) 
         or:[key == #NextField
         or:[key == #Tab]]) ifTrue:[
             (thisIndex == nFields) ifTrue:[
-                ^ wg focusNext
+                ^ wg focusNextFrom:aField
             ].
         ].
     ].
@@ -696,7 +696,7 @@
     ]
 
     "Created: / 18.10.1997 / 03:03:34 / cg"
-    "Modified: / 31.10.1997 / 19:15:55 / cg"
+    "Modified: / 4.8.1998 / 02:43:30 / cg"
 ! !
 
 !EnterFieldGroup methodsFor:'misc'!
@@ -765,5 +765,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.31 1997-11-02 17:35:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.32 1998-08-04 00:45:30 cg Exp $'
 ! !