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