--- a/EFGroup.st	Thu Aug 13 21:24:11 1998 +0200
+++ b/EFGroup.st	Thu Aug 13 21:24:44 1998 +0200
@@ -711,6 +711,17 @@
     "Modified: 7.2.1996 / 15:23:09 / cg"
 !
 
+activateFirstIfNoCurrent
+    "pass controll to my first field, if there is no current field"
+
+    currentField isNil ifTrue:[
+        self activateFirst
+    ]
+
+    "Modified: / 7.2.1996 / 15:23:09 / cg"
+    "Created: / 13.8.1998 / 21:22:35 / cg"
+!
+
 activateLast
     "pass controll to my last field"
 
@@ -765,5 +776,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.32 1998-08-04 00:45:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/EFGroup.st,v 1.33 1998-08-13 19:24:44 cg Exp $'
 ! !

--- a/EnterFieldGroup.st	Thu Aug 13 21:24:11 1998 +0200
+++ b/EnterFieldGroup.st	Thu Aug 13 21:24:44 1998 +0200
@@ -711,6 +711,17 @@
     "Modified: 7.2.1996 / 15:23:09 / cg"
 !
 
+activateFirstIfNoCurrent
+    "pass controll to my first field, if there is no current field"
+
+    currentField isNil ifTrue:[
+        self activateFirst
+    ]
+
+    "Modified: / 7.2.1996 / 15:23:09 / cg"
+    "Created: / 13.8.1998 / 21:22:35 / cg"
+!
+
 activateLast
     "pass controll to my last field"
 
@@ -765,5 +776,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.32 1998-08-04 00:45:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.33 1998-08-13 19:24:44 cg Exp $'
 ! !