--- a/EnterFieldGroup.st	Wed May 22 18:30:44 1996 +0200
+++ b/EnterFieldGroup.st	Wed May 22 19:04:18 1996 +0200
@@ -665,6 +665,26 @@
     ]
 
     "Modified: 7.2.1996 / 15:23:09 / cg"
+!
+
+activateLast
+    "pass controll to my last field"
+
+    fields notNil ifTrue:[
+        self makeActive:fields last
+    ]
+
+    "Modified: 7.2.1996 / 15:23:09 / cg"
+    "Created: 22.5.1996 / 19:04:05 / cg"
+!
+
+makeInactive
+    "make the current field inActive (take its focus)"
+
+    self makeInactive:currentField
+
+    "Created: 22.5.1996 / 18:58:56 / cg"
+    "Modified: 22.5.1996 / 19:03:44 / cg"
 ! !
 
 !EnterFieldGroup methodsFor:'private'!
@@ -701,5 +721,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.25 1996-05-21 19:33:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.26 1996-05-22 17:04:18 cg Exp $'
 ! !