--- a/Toggle.st	Fri Mar 01 13:59:39 1996 +0100
+++ b/Toggle.st	Fri Mar 01 14:02:46 1996 +0100
@@ -349,8 +349,15 @@
 !Toggle class methodsFor:'defaults'!
 
 updateStyleCache
+    "extract values from the styleSheet and cache them in class variables"
+
+    <resource: #style (#toggleShowLamp
+                       #toggleLampColor)>
+
     DefaultShowLamp := StyleSheet at:'toggleShowLamp' default:false.
     DefaultLampColor := StyleSheet colorAt:'toggleLampColor' default:Color yellow.
+
+    "Modified: 1.3.1996 / 13:50:30 / cg"
 ! !
 
 !Toggle methodsFor:'accessing'!
@@ -492,5 +499,5 @@
 !Toggle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.25 1996-02-22 18:01:52 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.26 1996-03-01 13:02:18 cg Exp $'
 ! !