--- a/CheckBox.st	Thu Feb 03 13:59:52 2000 +0100
+++ b/CheckBox.st	Thu Feb 03 18:34:36 2000 +0100
@@ -369,7 +369,7 @@
 backgroundChannel:aChannel
 
     labelView backgroundChannel: (backgroundChannel := aChannel).
-    aChannel onChangeSend:#value to: [self enableStateChanged]
+    aChannel onChangeSend:#enableStateChanged to:self.
 !
 
 enableChannel
@@ -387,7 +387,7 @@
 
     wasEnabled := toggleView enabled.
     toggleView enableChannel:aChannel.
-    aChannel onChangeSend:#value to: [self enableStateChanged].
+    aChannel onChangeSend:#enableStateChanged to:self.
 
     aChannel value ~~ wasEnabled ifTrue:[
         self enableStateChanged
@@ -402,7 +402,7 @@
 foregroundChannel:aChannel
 
     labelView foregroundChannel: (foregroundChannel := aChannel).
-    aChannel onChangeSend:#value to: [self enableStateChanged]
+    aChannel onChangeSend:#enableStateChanged to:self.
    
 !
 
@@ -606,7 +606,7 @@
 !CheckBox methodsFor:'change & update'!
 
 enableStateChanged
-    "handle changes on the enableChannel, change labels color."
+    "handle changes on the enableChannel or fg/bg color, change labels color."
 
     |clr|
 
@@ -841,5 +841,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.63 2000-01-14 16:27:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.64 2000-02-03 17:34:36 cg Exp $'
 ! !