added style resource directive
authorClaus Gittinger <cg@exept.de>
Fri, 01 Mar 1996 13:58:33 +0100
changeset 134 049f033265f9
parent 133 f058a050f183
child 135 1c113f77460e
added style resource directive
CheckBox.st
--- a/CheckBox.st	Thu Feb 29 01:09:03 1996 +0100
+++ b/CheckBox.st	Fri Mar 01 13:58:33 1996 +0100
@@ -240,6 +240,11 @@
 !CheckBox class methodsFor:'defaults'!
 
 updateStyleCache
+    "extract values from the styleSheet and cache them in class variables"
+
+    <resource: #style (#checkBoxLabelForegroundColor 
+                       #checkBoxDisabledLabelForegroundColor)>
+
     DefaultLabelForegroundColor := StyleSheet colorAt:'checkBoxLabelForegroundColor'.
     DefaultDisabledLabelForegroundColor := StyleSheet colorAt:'checkBoxDisabledLabelForegroundColor'.
 
@@ -248,7 +253,7 @@
     "
 
     "Created: 14.12.1995 / 14:47:22 / cg"
-    "Modified: 14.12.1995 / 14:47:36 / cg"
+    "Modified: 1.3.1996 / 13:45:47 / cg"
 ! !
 
 !CheckBox methodsFor:'accessing'!
@@ -513,5 +518,5 @@
 !CheckBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.18 1996-01-24 19:46:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.19 1996-03-01 12:58:33 cg Exp $'
 ! !