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