*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Mon, 03 Mar 1997 11:02:40 +0100
changeset 318 4c064882b43b
parent 317 0f8f00dc025a
child 319 920ef16160ae
*** empty log message ***
CheckBox.st
--- 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 $'
 ! !