# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 858763634 -3600
# Node ID 3c9a9961d225db44bf1fd023b73e702a45b2612c
# Parent  17a77892f1809023524504f5afc4f81c0acf12a5
checkin from browser

diff -r 17a77892f180 -r 3c9a9961d225 VarPanel.st
--- a/VarPanel.st	Tue Mar 18 17:22:03 1997 +0100
+++ b/VarPanel.st	Wed Mar 19 10:27:14 1997 +0100
@@ -996,35 +996,31 @@
         yL := hy + halfHeight.
         xL := hx + halfHeight.
 
+        trackLine == #dashedLine ifTrue:[
+            self lineStyle:#dashed.
+        ].
         orientation == #vertical ifTrue:[
-            trackLine == #solidLine ifTrue:[
+            (trackLine == #solidLine 
+            or:[trackLine == #dashedLine]) 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
-                ]
+                self fillRectangleX:0 y:hy width:width height:barHeight
             ]
         ] ifFalse:[
-            trackLine == #solidLine ifTrue:[
+            (trackLine == #solidLine 
+            or:[trackLine == #dashedLine]) 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 fillRectangleX:hx y:0 width:barHeight height:height
             ]
-        ]
+        ].
+        trackLine == #dashedLine ifTrue:[
+            self lineStyle:#solid.
+        ].
     ].
     self clipByChildren.
 
-    "Modified: 18.3.1997 / 17:19:34 / cg"
+    "Modified: 19.3.1997 / 10:26:55 / cg"
 !
 
 lockRedraw
@@ -1484,5 +1480,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.26 1997-03-18 16:22:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/VarPanel.st,v 1.27 1997-03-19 09:27:14 cg Exp $'
 ! !
diff -r 17a77892f180 -r 3c9a9961d225 VariablePanel.st
--- a/VariablePanel.st	Tue Mar 18 17:22:03 1997 +0100
+++ b/VariablePanel.st	Wed Mar 19 10:27:14 1997 +0100
@@ -996,35 +996,31 @@
         yL := hy + halfHeight.
         xL := hx + halfHeight.
 
+        trackLine == #dashedLine ifTrue:[
+            self lineStyle:#dashed.
+        ].
         orientation == #vertical ifTrue:[
-            trackLine == #solidLine ifTrue:[
+            (trackLine == #solidLine 
+            or:[trackLine == #dashedLine]) 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
-                ]
+                self fillRectangleX:0 y:hy width:width height:barHeight
             ]
         ] ifFalse:[
-            trackLine == #solidLine ifTrue:[
+            (trackLine == #solidLine 
+            or:[trackLine == #dashedLine]) 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 fillRectangleX:hx y:0 width:barHeight height:height
             ]
-        ]
+        ].
+        trackLine == #dashedLine ifTrue:[
+            self lineStyle:#solid.
+        ].
     ].
     self clipByChildren.
 
-    "Modified: 18.3.1997 / 17:19:34 / cg"
+    "Modified: 19.3.1997 / 10:26:55 / cg"
 !
 
 lockRedraw
@@ -1484,5 +1480,5 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.26 1997-03-18 16:22:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.27 1997-03-19 09:27:14 cg Exp $'
 ! !