EnterFieldGroup.st
changeset 322 3a25112b58b1
parent 316 1e27aa926710
child 466 e878bd3b227e
--- a/EnterFieldGroup.st	Tue Feb 06 21:46:13 1996 +0100
+++ b/EnterFieldGroup.st	Wed Feb 07 15:23:21 1996 +0100
@@ -490,8 +490,10 @@
     "pass controll to my first field"
 
     fields notNil ifTrue:[
-	self makeActive:(fields first)
+        self makeActive:fields first
     ]
+
+    "Modified: 7.2.1996 / 15:23:09 / cg"
 ! !
 
 !EnterFieldGroup methodsFor:'private'!
@@ -515,5 +517,5 @@
 !EnterFieldGroup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.18 1996-01-31 01:10:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EnterFieldGroup.st,v 1.19 1996-02-07 14:23:21 cg Exp $'
 ! !