--- a/LabelledEnterField.st	Wed Mar 31 07:56:38 1999 +0200
+++ b/LabelledEnterField.st	Wed Mar 31 08:07:57 1999 +0200
@@ -70,22 +70,22 @@
 
     f1 := LabelledEnterField new.
     f1 label:'Firstname:'.
-    f1 model:model; aspect:#firstName; change:#firstName:.
+    f1 aspect:#firstName; change:#firstName:; model:model.
     panel add:f1.
 
     f2 := LabelledEnterField new.
     f2 label:'Middle Initial:'.
-    f2 model:model; aspect:#middleInitial; change:#middleInitial:.
+    f2 aspect:#middleInitial; change:#middleInitial:; model:model.
     panel add:f2.
 
     f3 := LabelledEnterField new.
     f3 label:'Lastname:'.
-    f3 model:model; aspect:#lastName; change:#lastName:.
+    f3 aspect:#lastName; change:#lastName:; model:model.
     panel add:f3.
 
     f4 := LabelledEnterField new.
     f4 label:'Telephone:'.
-    f4 model:model; aspect:#telNo; change:#telNo:.
+    f4 aspect:#telNo; change:#telNo:; model:model.
     panel add:f4.
 
     top open
@@ -115,22 +115,18 @@
      textField acceptOnLeave: aBoolean.
 !
 
-disable
-    "disable - forwarded to the inputField"
-
-    textField disable
-!
-
-enable
-    "enable - forwarded to the inputField"
-
-    textField enable
-!
-
 enabled
     "return true if enabled - forwarded to the inputField"
 
     ^ textField enabled
+!
+
+enabled:aBoolean
+    "enable/disable - forwarded to the inputField"
+
+    textField enabled:aBoolean
+
+    "Created: / 30.3.1999 / 15:20:44 / stefan"
 ! !
 
 !LabelledEnterField methodsFor:'accessing-look'!
@@ -234,5 +230,5 @@
 !LabelledEnterField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.21 1997-02-21 19:14:45 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/LabelledEnterField.st,v 1.22 1999-03-31 06:07:57 stefan Exp $'
 ! !