VariablePanel.st
changeset 4960 570e9c18fe4e
parent 4957 bf4effc54950
child 4980 7de6c3eadf49
--- a/VariablePanel.st	Wed Mar 19 14:33:28 2014 +0100
+++ b/VariablePanel.st	Wed Mar 19 14:36:25 2014 +0100
@@ -1660,7 +1660,7 @@
                or:[trackLine == #dottedLine]]).
 
     trackLine == #dashedLine ifTrue:[
-        oldStyle := lineStyle.
+        oldStyle := gc lineStyle.
         self lineStyle:#dashed.
     ] ifFalse:[
         trackLine == #dottedLine ifTrue:[
@@ -2599,10 +2599,10 @@
 !VariablePanel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.100 2014-03-19 10:05:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.101 2014-03-19 13:36:25 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.100 2014-03-19 10:05:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/VariablePanel.st,v 1.101 2014-03-19 13:36:25 stefan Exp $'
 ! !