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.
dont draw round-rectangle points twice (in case of xoring)
authorClaus Gittinger <cg@exept.de>
Wed, 23 Apr 2008 16:33:08 +0200
changeset 4940 cbac16cbe259
parent 4939 8f9071993f39
child 4941 f9fae1143962
dont draw round-rectangle points twice (in case of xoring)
GraphicsContext.st file | annotate | diff | comparison | revisions 
--- a/GraphicsContext.st	Wed Apr 23 16:32:25 2008 +0200
+++ b/GraphicsContext.st	Wed Apr 23 16:33:08 2008 +0200
@@ -1750,10 +1750,10 @@
     self displayArcX:left y:(bottom - hC) width:wC height:hC from:180 angle:90.
 
     "top line"
-    self displayLineFromX:(left + wHalf) y:top toX:(right - wHalf+1) y:top.
+    self displayLineFromX:(left + wHalf) y:top toX:(right - wHalf-1) y:top.
 
     "left line"
-    self displayLineFromX:left y:(top + hHalf - 1) toX:left y:(bottom - hHalf).
+    self displayLineFromX:left y:(top + hHalf - 1) toX:left y:(bottom - hHalf - 2).
 
     "bottom line"
     self displayLineFromX:(left + wHalf-1) y:bottom
@@ -2436,7 +2436,7 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.118 2008-03-27 17:45:05 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.119 2008-04-23 14:33:08 cg Exp $'
 ! !
 
 GraphicsContext initialize!
hg/stx-libview