--- a/EFGroup.st	Sun Nov 02 18:33:23 1997 +0100
+++ b/EFGroup.st	Sun Nov 02 18:35:07 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 18-oct-1997 at 3:23:15 pm'                  !
-
 Object subclass:#EnterFieldGroup
 	instanceVariableNames:'fields currentField leaveAction wrap leaveOnTabLast'
 	classVariableNames:''
@@ -609,6 +607,11 @@
 !EnterFieldGroup methodsFor:'group control'!
 
 fieldLeft:aField withKey:key
+    "some of my fields was left using key.
+     Figure out, which one to give the focus:
+     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|
 
 "/        currentField notNil ifTrue:[
@@ -623,6 +626,7 @@
     "/ 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
@@ -691,8 +695,8 @@
         ]
     ]
 
-    "Created: 18.10.1997 / 03:03:34 / cg"
-    "Modified: 18.10.1997 / 03:22:19 / cg"
+    "Created: / 18.10.1997 / 03:03:34 / cg"
+    "Modified: / 31.10.1997 / 19:15:55 / cg"
 ! !
 
 !EnterFieldGroup methodsFor:'misc'!
@@ -761,5 +765,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.30 1997-10-21 18:28:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.31 1997-11-02 17:35:07 cg Exp $'
 ! !

--- a/EnterFieldGroup.st	Sun Nov 02 18:33:23 1997 +0100
+++ b/EnterFieldGroup.st	Sun Nov 02 18:35:07 1997 +0100
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.2.1 on 18-oct-1997 at 3:23:15 pm'                  !
-
 Object subclass:#EnterFieldGroup
 	instanceVariableNames:'fields currentField leaveAction wrap leaveOnTabLast'
 	classVariableNames:''
@@ -609,6 +607,11 @@
 !EnterFieldGroup methodsFor:'group control'!
 
 fieldLeft:aField withKey:key
+    "some of my fields was left using key.
+     Figure out, which one to give the focus:
+     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|
 
 "/        currentField notNil ifTrue:[
@@ -623,6 +626,7 @@
     "/ 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
@@ -691,8 +695,8 @@
         ]
     ]
 
-    "Created: 18.10.1997 / 03:03:34 / cg"
-    "Modified: 18.10.1997 / 03:22:19 / cg"
+    "Created: / 18.10.1997 / 03:03:34 / cg"
+    "Modified: / 31.10.1997 / 19:15:55 / cg"
 ! !
 
 !EnterFieldGroup methodsFor:'misc'!
@@ -761,5 +765,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.30 1997-10-21 18:28:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.31 1997-11-02 17:35:07 cg Exp $'
 ! !