Mercurial Mercurial > hg > stx-libview / 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.
special edgeDrawing for very thin edge-rects
authorClaus Gittinger <cg@exept.de>
Mon, 18 Aug 1997 12:30:41 +0200
changeset 1867 815304128fd5
parent 1866 4d41fc889c0c
child 1868 484e0fca2cf6
special edgeDrawing for very thin edge-rects
GC.st file | annotate | diff | comparison | revisions
GraphicsContext.st file | annotate | diff | comparison | revisions 
--- a/GC.st	Fri Aug 15 13:11:26 1997 +0200
+++ b/GC.st	Mon Aug 18 12:30:41 1997 +0200
@@ -1660,7 +1660,9 @@
 
     0 to:(count - 1) do:[:i |
         run := y + i.
-        self displayDeviceLineFromX:x y:run toX:r y:run. "top"
+        run < b ifTrue:[
+            self displayDeviceLineFromX:x y:run toX:r y:run. "top"
+        ].
         run := x + i.
         self displayDeviceLineFromX:run y:y toX:run y:b  "left"
     ].
@@ -1695,7 +1697,9 @@
     self paint:paint.
     0 to:(count - 1) do:[:i |
         run := b - i.
-        self displayDeviceLineFromX:xi-1 y:run toX:r y:run. "bottom"
+        run > y ifTrue:[
+            self displayDeviceLineFromX:xi-1 y:run toX:r y:run. "bottom"
+        ].
         run := r - i.
         self displayDeviceLineFromX:run y:yi-1 toX:run y:b.  "right"
         xi := xi + 1.
@@ -1703,13 +1707,13 @@
     ].
     ((edgeStyle == #soft) and:[l > 1]) ifTrue:[
         self paint:(device blackColor) "shadowColor".
-        self displayDeviceLineFromX:(x + (1 - 1)) y:b toX:r y:b. 
-        self displayDeviceLineFromX:r y:(y + (1 - 1)) toX:r y:b        
+        self displayDeviceLineFromX:x y:b toX:r y:b. 
+        self displayDeviceLineFromX:r y:y toX:r y:b        
     ].
 
     self edgeDrawn:#all
 
-    "Modified: 7.3.1997 / 17:59:19 / cg"
+    "Modified: 18.8.1997 / 01:37:50 / cg"
 !
 
 edgeDrawn:whichOne
@@ -1879,6 +1883,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.59 1997-04-24 14:04:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.60 1997-08-18 10:30:41 cg Exp $'
 ! !
 GraphicsContext initialize!
--- a/GraphicsContext.st	Fri Aug 15 13:11:26 1997 +0200
+++ b/GraphicsContext.st	Mon Aug 18 12:30:41 1997 +0200
@@ -1660,7 +1660,9 @@
 
     0 to:(count - 1) do:[:i |
         run := y + i.
-        self displayDeviceLineFromX:x y:run toX:r y:run. "top"
+        run < b ifTrue:[
+            self displayDeviceLineFromX:x y:run toX:r y:run. "top"
+        ].
         run := x + i.
         self displayDeviceLineFromX:run y:y toX:run y:b  "left"
     ].
@@ -1695,7 +1697,9 @@
     self paint:paint.
     0 to:(count - 1) do:[:i |
         run := b - i.
-        self displayDeviceLineFromX:xi-1 y:run toX:r y:run. "bottom"
+        run > y ifTrue:[
+            self displayDeviceLineFromX:xi-1 y:run toX:r y:run. "bottom"
+        ].
         run := r - i.
         self displayDeviceLineFromX:run y:yi-1 toX:run y:b.  "right"
         xi := xi + 1.
@@ -1703,13 +1707,13 @@
     ].
     ((edgeStyle == #soft) and:[l > 1]) ifTrue:[
         self paint:(device blackColor) "shadowColor".
-        self displayDeviceLineFromX:(x + (1 - 1)) y:b toX:r y:b. 
-        self displayDeviceLineFromX:r y:(y + (1 - 1)) toX:r y:b        
+        self displayDeviceLineFromX:x y:b toX:r y:b. 
+        self displayDeviceLineFromX:r y:y toX:r y:b        
     ].
 
     self edgeDrawn:#all
 
-    "Modified: 7.3.1997 / 17:59:19 / cg"
+    "Modified: 18.8.1997 / 01:37:50 / cg"
 !
 
 edgeDrawn:whichOne
@@ -1879,6 +1883,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.59 1997-04-24 14:04:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.60 1997-08-18 10:30:41 cg Exp $'
 ! !
 GraphicsContext initialize!
hg/stx-libview