--- a/EditField.st	Sun Nov 02 18:30:24 1997 +0100
+++ b/EditField.st	Sun Nov 02 18:33:23 1997 +0100
@@ -1069,22 +1069,13 @@
 enableChannel:aValueHolder 
     "set the valueHolder, which holds the enable boolean value"
 
-    |wasEnabled|
+    |prev|
 
-    enableChannel notNil ifTrue:[
-        wasEnabled := enableChannel value.
-        enableChannel retractInterestsFor:self. 
-    ] ifFalse:[
-        wasEnabled := enabled
-    ].
+    prev := enableChannel.
     enableChannel := aValueHolder.
-    aValueHolder onChangeSend:#enableStateChange to:self.
-    enableChannel value ~~ wasEnabled ifTrue:[
-        self enableStateChange
-    ]
+    self setupChannel:aValueHolder for:#enableStateChange withOld:prev
 
-    "Created: 16.12.1995 / 16:35:32 / cg"
-    "Modified: 30.4.1996 / 15:10:03 / cg"
+    "Modified: / 31.10.1997 / 14:46:18 / cg"
 ! !
 
 !EditField methodsFor:'accessing-contents'!
@@ -1867,10 +1858,13 @@
 !
 
 specClass
+    "redefined, since the name of my specClass is nonStandard (i.e. not EditFieldSpec)"
+
     self class == EditField ifTrue:[^ InputFieldSpec].
     ^ super specClass
 
-    "Modified: 5.9.1995 / 17:28:27 / claus"
+    "Modified: / 5.9.1995 / 17:28:27 / claus"
+    "Modified: / 31.10.1997 / 19:48:59 / cg"
 !
 
 tabMeansNextField
@@ -1943,5 +1937,5 @@
 !EditField class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.97 1997-10-28 19:59:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/EditField.st,v 1.98 1997-11-02 17:33:23 cg Exp $'
 ! !