parse style-resource directive
authorClaus Gittinger <cg@exept.de>
Fri, 01 Mar 1996 14:20:49 +0100
changeset 445 f4c4d5c1be6b
parent 444 ef26eba8c854
child 446 98f38de97099
parse style-resource directive
MenuView.st
--- a/MenuView.st	Fri Mar 01 14:07:13 1996 +0100
+++ b/MenuView.st	Fri Mar 01 14:20:49 1996 +0100
@@ -252,6 +252,18 @@
 !MenuView class methodsFor:'defaults'!
 
 updateStyleCache
+    "extract values from the styleSheet and cache them in class variables"
+
+    <resource: #style (#menuForegroundColor #menuBackgroundColor
+                       #menuViewBackground
+                       #menuShadowColor #menuLightColor
+                       #menuHilightForegroundColor #menuHilightBackgroundColor
+                       #menuHilightFrameColor #selectionHilightFrameColor
+                       #menuHilightLevel #menuHilightStyle
+                       #menuSeparatingLineLevel #menuSeparatingLineInset
+                       #menuDisabledForegroundColor #menuCheckColor
+                       #menuFont #menuShowAccelerators)>
+
     DefaultViewBackground := StyleSheet colorAt:'menuViewBackground'.
     DefaultForegroundColor := StyleSheet colorAt:'menuForegroundColor'.
     DefaultBackgroundColor := StyleSheet colorAt:'menuBackgroundColor'.
@@ -270,7 +282,7 @@
     DefaultFont := StyleSheet fontAt:'menuFont'.
     ShowAcceleratorKeys := StyleSheet at:'menuShowAccelerators' default:true.
 
-    "Modified: 29.2.1996 / 03:56:53 / cg"
+    "Modified: 1.3.1996 / 13:45:31 / cg"
 ! !
 
 !MenuView methodsFor:'accessing-behavior'!
@@ -2246,5 +2258,5 @@
 !MenuView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.51 1996-02-29 11:55:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/MenuView.st,v 1.52 1996-03-01 13:20:49 cg Exp $'
 ! !