Mercurial Mercurial > hg > stx-libwidg / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
checkin from browser
authorClaus Gittinger <cg@exept.de>
Wed, 19 Mar 1997 10:27:14 +0100
changeset 1130 3c9a9961d225
parent 1129 17a77892f180
child 1131 98922cb07e5b
checkin from browser
VarPanel.st file | annotate | diff | comparison | revisions
VariablePanel.st file | annotate | diff | comparison | revisions 
--- 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 $'
 ! !
--- 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 $'
 ! !
hg/stx-libwidg