equal
deleted
inserted
replaced
611 enableStateChanged |
611 enableStateChanged |
612 "handle changes on the enableChannel, change labels color." |
612 "handle changes on the enableChannel, change labels color." |
613 |
613 |
614 |clr| |
614 |clr| |
615 |
615 |
616 self enabled |
616 self enabled ifTrue:[ |
617 ifTrue: |
|
618 [ |
|
619 (foregroundChannel notNil and: [foregroundChannel value notNil]) |
617 (foregroundChannel notNil and: [foregroundChannel value notNil]) |
620 ifTrue: [labelView foregroundChannel: foregroundChannel] |
618 ifTrue: [labelView foregroundChannel: foregroundChannel] |
621 ifFalse: [labelView foregroundColor: labelForegroundColor ? Color black]. |
619 ifFalse: [labelView foregroundColor: labelForegroundColor ? Color black]. |
622 labelForegroundColor := labelView foregroundColor |
620 labelForegroundColor := labelView foregroundColor |
623 ] |
621 ] ifFalse:[ |
624 ifFalse: |
|
625 [ |
|
626 labelView foregroundChannel: nil |
622 labelView foregroundChannel: nil |
627 ]. |
623 ]. |
628 |
624 |
629 toggleView enabled ifTrue:[ |
625 toggleView enabled ifTrue:[ |
630 clr := self labelForegroundColor. |
626 clr := self labelForegroundColor. |
841 ! ! |
837 ! ! |
842 |
838 |
843 !CheckBox class methodsFor:'documentation'! |
839 !CheckBox class methodsFor:'documentation'! |
844 |
840 |
845 version |
841 version |
846 ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.57 1999-03-19 20:20:06 cg Exp $' |
842 ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.58 1999-03-22 12:15:38 cg Exp $' |
847 ! ! |
843 ! ! |