--- a/VariablePanel.st	Wed Oct 15 13:28:03 1997 +0200
+++ b/VariablePanel.st	Wed Oct 15 13:28:25 1997 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:3.2.1 on 14-oct-1997 at 11:25:13 pm'                 !
+
 SimpleView subclass:#VariablePanel
 	instanceVariableNames:'barHeight barWidth separatingLine shadowForm lightForm showHandle
 		handlePosition handleColor handleStyle handleLevel noColor
@@ -602,20 +604,20 @@
 updateStyleCache
     "extract values from the styleSheet and cache them in class variables"
 
-    <resource: #style (#variablePanelShowHandle #variablePanelHandleStyle
-                       #variablePanelHandlePosition #variablePanelHandleLevel
-                       #variablePanelTrackingLine #variablePanelTrackingStyle
-                       #variablePanelSeparatingLine #variablePanelHandleColor)>
+    <resource: #style (#'variablePanel.showHandle' #'variablePanel.handleStyle'
+                       #'variablePanel.handlePosition' #'variablePanel.handleLevel'
+                       #'variablePanel.trackingLine' #'variablePanel.trackingStyle'
+                       #'variablePanel.separatingLine' #'variablePanel.handleColor')>
 
     |lineModeBoolean|
 
-    DefaultShowHandle := StyleSheet at:'variablePanelShowHandle' default:true.
-    DefaultHandleStyle := StyleSheet at:'variablePanelHandleStyle'.
-    DefaultHandlePosition := StyleSheet at:'variablePanelHandlePosition' default:#right.
-    DefaultHandleLevel := StyleSheet at:'variablePanelHandleLevel' default:2.
-    DefaultTrackingLine := StyleSheet at:'variablePanelTrackingStyle' default:nil.
+    DefaultShowHandle := StyleSheet at:'variablePanel.showHandle' default:true.
+    DefaultHandleStyle := StyleSheet at:'variablePanel.handleStyle'.
+    DefaultHandlePosition := StyleSheet at:'variablePanel.handlePosition' default:#right.
+    DefaultHandleLevel := StyleSheet at:'variablePanel.handleLevel' default:2.
+    DefaultTrackingLine := StyleSheet at:'variablePanel.trackingStyle' default:nil.
     DefaultTrackingLine isNil ifTrue:[
-        lineModeBoolean := StyleSheet at:'variablePanelTrackingLine' default:false.
+        lineModeBoolean := StyleSheet at:'variablePanel.trackingLine' default:false.
         lineModeBoolean ifTrue:[
             DefaultTrackingLine := #solidLine
         ] ifFalse:[
@@ -623,14 +625,14 @@
         ]
     ].
 
-    DefaultSeparatingLine := StyleSheet at:'variablePanelSeparatingLine' default:false.
-    DefaultHandleColor := StyleSheet colorAt:'variablePanelHandleColor' default:Black.
+    DefaultSeparatingLine := StyleSheet at:'variablePanel.separatingLine' default:false.
+    DefaultHandleColor := StyleSheet colorAt:'variablePanel.handleColor' default:Black.
 
     "
      VariablePanel updateStyleCache
     "
 
-    "Modified: 18.3.1997 / 17:16:10 / cg"
+    "Modified: 14.10.1997 / 01:26:42 / cg"
 ! !
 
 !VariablePanel methodsFor:'accessing'!
@@ -1498,5 +1500,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.33 1997-05-07 18:50:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.34 1997-10-15 11:28:25 cg Exp $'
 ! !