--- a/VariablePanel.st	Sat Mar 08 00:04:27 1997 +0100
+++ b/VariablePanel.st	Tue Mar 18 17:22:03 1997 +0100
@@ -553,18 +553,33 @@
 
     <resource: #style (#variablePanelShowHandle #variablePanelHandleStyle
                        #variablePanelHandlePosition #variablePanelHandleLevel
-                       #variablePanelTrackingLine 
+                       #variablePanelTrackingLine #variablePanelTrackingStyle
                        #variablePanelSeparatingLine #variablePanelHandleColor)>
 
+    |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:'variablePanelTrackingLine' default:false.
+    DefaultTrackingLine := StyleSheet at:'variablePanelTrackingStyle' default:nil.
+    DefaultTrackingLine isNil ifTrue:[
+        lineModeBoolean := StyleSheet at:'variablePanelTrackingLine' default:false.
+        lineModeBoolean ifTrue:[
+            DefaultTrackingLine := #solidLine
+        ] ifFalse:[
+            DefaultTrackingLine := #solidRectangle
+        ]
+    ].
+
     DefaultSeparatingLine := StyleSheet at:'variablePanelSeparatingLine' default:false.
     DefaultHandleColor := StyleSheet colorAt:'variablePanelHandleColor' default:Black.
 
-    "Modified: 1.3.1996 / 13:51:24 / cg"
+    "
+     VariablePanel updateStyleCache
+    "
+
+    "Modified: 18.3.1997 / 17:16:10 / cg"
 ! !
 
 !VariablePanel methodsFor:'accessing'!
@@ -975,25 +990,41 @@
 invertHandleBarAtX:hx y:hy
     self noClipByChildren.
     self xoring:[
-	|y x|
+        |yL xL halfHeight|
+
+        halfHeight := barHeight // 2.
+        yL := hy + halfHeight.
+        xL := hx + halfHeight.
 
-	orientation == #vertical ifTrue:[
-	    trackLine ifTrue:[
-		y := hy + (barHeight // 2).
-		self displayLineFromX:0 y:y toX:width y:y.
-	    ] ifFalse:[
-		self fillRectangleX:0 y:hy width:width height:barHeight
-	    ]
-	] ifFalse:[
-	    trackLine ifTrue:[
-		x := hx + (barHeight // 2).
-		self displayLineFromX:x y:0 toX:x y:height.
-	    ] ifFalse:[
-		self fillRectangleX:hx y:0 width:barHeight height:height
-	    ]
-	]
+        orientation == #vertical ifTrue:[
+            trackLine == #solidLine ifTrue:[
+                self displayLineFromX:0 y:yL toX:width y:yL.
+            ] ifFalse:[
+                trackLine == #dashedLine ifTrue:[
+                    self lineStyle:#dashed.
+                    self displayLineFromX:0 y:yL toX:width y:yL.
+                    self lineStyle:#solid.
+                ] ifFalse:[
+                    self fillRectangleX:0 y:hy width:width height:barHeight
+                ]
+            ]
+        ] ifFalse:[
+            trackLine == #solidLine ifTrue:[
+                self displayLineFromX:xL y:0 toX:xL y:height.
+            ] ifFalse:[
+                trackLine == #dashedLine ifTrue:[
+                    self lineStyle:#dashed.
+                    self displayLineFromX:xL y:0 toX:xL y:height.
+                    self lineStyle:#solid.
+                ] ifFalse:[
+                    self fillRectangleX:hx y:0 width:barHeight height:height
+                ]
+            ]
+        ]
     ].
     self clipByChildren.
+
+    "Modified: 18.3.1997 / 17:19:34 / cg"
 !
 
 lockRedraw
@@ -1453,5 +1484,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.25 1997-03-07 15:33:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.26 1997-03-18 16:22:03 cg Exp $'
 ! !