--- 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 $'
! !