--- a/CheckBox.st Sat Mar 01 02:00:39 1997 +0100
+++ b/CheckBox.st Mon Mar 03 11:02:40 1997 +0100
@@ -537,18 +537,18 @@
!CheckBox methodsFor:'change & update'!
enableStateChanged
- "handle changes on the enableChannel"
+ "handle changes on the enableChannel, change labels color."
|clr|
toggleView enabled ifTrue:[
- clr := self labelForegroundColor
+ clr := self labelForegroundColor
] ifFalse:[
- clr := self disabledLabelForegroundColor
+ clr := self disabledLabelForegroundColor
].
labelView foregroundColor:clr
- "Modified: 25.4.1996 / 16:34:30 / cg"
+ "Modified: 3.3.1997 / 11:02:33 / cg"
! !
!CheckBox methodsFor:'event handling'!
@@ -669,5 +669,5 @@
!CheckBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.40 1997-03-01 01:00:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.41 1997-03-03 10:02:40 cg Exp $'
! !