checkin from browser
authorClaus Gittinger <cg@exept.de>
Mon, 22 Mar 1999 13:15:38 +0100
changeset 1276 d44c8332940d
parent 1275 cc62615ed032
child 1277 8c74c9cc6e22
checkin from browser
CheckBox.st
--- 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 $'
 ! !