--- a/CheckBox.st Sun Mar 21 20:23:48 1999 +0100
+++ b/CheckBox.st Mon Mar 22 13:15:38 1999 +0100
@@ -613,16 +613,12 @@
|clr|
- self enabled
- ifTrue:
- [
+ self enabled ifTrue:[
(foregroundChannel notNil and: [foregroundChannel value notNil])
ifTrue: [labelView foregroundChannel: foregroundChannel]
ifFalse: [labelView foregroundColor: labelForegroundColor ? Color black].
labelForegroundColor := labelView foregroundColor
- ]
- ifFalse:
- [
+ ] ifFalse:[
labelView foregroundChannel: nil
].
@@ -843,5 +839,5 @@
!CheckBox class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.57 1999-03-19 20:20:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.58 1999-03-22 12:15:38 cg Exp $'
! !