--- a/VarPanel.st	Fri Mar 01 13:59:39 1996 +0100
+++ b/VarPanel.st	Fri Mar 01 14:02:46 1996 +0100
@@ -376,6 +376,13 @@
 !
 
 updateStyleCache
+    "extract values from the styleSheet and cache them in class variables"
+
+    <resource: #style (#variablePanelShowHandle #variablePanelHandleStyle
+                       #variablePanelHandlePosition #variablePanelHandleLevel
+                       #variablePanelTrackingLine 
+                       #variablePanelSeparatingLine #variablePanelHandleColor)>
+
     DefaultShowHandle := StyleSheet at:'variablePanelShowHandle' default:true.
     DefaultHandleStyle := StyleSheet at:'variablePanelHandleStyle'.
     DefaultHandlePosition := StyleSheet at:'variablePanelHandlePosition' default:#right.
@@ -383,6 +390,8 @@
     DefaultTrackingLine := StyleSheet at:'variablePanelTrackingLine' default:false.
     DefaultSeparatingLine := StyleSheet at:'variablePanelSeparatingLine' default:false.
     DefaultHandleColor := StyleSheet colorAt:'variablePanelHandleColor' default:Black.
+
+    "Modified: 1.3.1996 / 13:51:24 / cg"
 ! !
 
 !VariablePanel methodsFor:'accessing'!
@@ -1086,5 +1095,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.6 1996-02-24 18:40:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.7 1996-03-01 13:02:46 cg Exp $'
 ! !