--- a/EnterFieldGroup.st	Fri Mar 02 15:28:28 2007 +0100
+++ b/EnterFieldGroup.st	Fri Mar 02 15:59:35 2007 +0100
@@ -9,6 +9,7 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+"{ Package: 'stx:libwidg' }"
 
 Object subclass:#EnterFieldGroup
 	instanceVariableNames:'fields currentField leaveAction wrap leaveOnTabLast'
@@ -612,35 +613,12 @@
      If there are more fields, go to that one;
      otherwise, handle this like tabbing to the next component"
 
-    |thisIndex action next wg explicit nFields nextField fs
-     delta|
+    |thisIndex action next wg explicit nFields nextField delta|
 
     action := key.
     nFields := fields size.
     thisIndex := fields indexOf:aField.
 
-    "/ if there is a windowGroup, which has a focusSequence,
-    "/ and the group is left, let it control who is going to get the
-    "/ focus. Otherwise, stay within the group.
-    "/ Q: is this a good idea (or should we always stay here) ?
-
-    ((wg := aField windowGroup) notNil
-    and:[(fs := wg focusSequence) notNil
-    and:[fs includesIdentical:aField]]) ifTrue:[
-        ((key == #CursorUp) or:[key == #PreviousField]) ifTrue:[
-            (thisIndex == 1) ifTrue:[
-                ^ wg focusPreviousFrom:aField
-            ].
-        ].
-        ((key == #CursorDown) 
-        or:[key == #NextField
-        or:[key == #Tab]]) ifTrue:[
-            (thisIndex == nFields) ifTrue:[
-                ^ wg focusNextFrom:aField
-            ].
-        ].
-    ].
-
     ((key == #CursorUp) or:[key == #PreviousField]) ifTrue:[
         delta := -1.
         (thisIndex == 1) ifTrue:[
@@ -813,5 +791,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.39 2000-02-12 15:36:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.40 2007-03-02 14:59:35 ca Exp $'
 ! !