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.
care to use the same waveline origin
authorClaus Gittinger <cg@exept.de>
Wed, 07 Jul 1999 14:47:56 +0200
changeset 2783 665caca8506e
parent 2782 00a7ee0a230d
child 2784 cd0a37151aba
care to use the same waveline origin
GC.st file | annotate | diff | comparison | revisions
GraphicsContext.st file | annotate | diff | comparison | revisions 
--- a/GC.st	Wed Jul 07 00:07:18 1999 +0200
+++ b/GC.st	Wed Jul 07 14:47:56 1999 +0200
@@ -1134,7 +1134,7 @@
     oldClip := self clippingRectangleOrNil.
     self clippingRectangle:((x0 @ y0) corner:(x1 @ (y0+h))).
 
-    x := x0.
+    x := x0 truncateTo:w.
     [x <= x1] whileTrue:[
         self displayForm:form x:x y:y0.
         x := x + w.
@@ -2152,6 +2152,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.79 1999-07-06 22:07:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/GC.st,v 1.80 1999-07-07 12:47:56 cg Exp $'
 ! !
 GraphicsContext initialize!
--- a/GraphicsContext.st	Wed Jul 07 00:07:18 1999 +0200
+++ b/GraphicsContext.st	Wed Jul 07 14:47:56 1999 +0200
@@ -1134,7 +1134,7 @@
     oldClip := self clippingRectangleOrNil.
     self clippingRectangle:((x0 @ y0) corner:(x1 @ (y0+h))).
 
-    x := x0.
+    x := x0 truncateTo:w.
     [x <= x1] whileTrue:[
         self displayForm:form x:x y:y0.
         x := x + w.
@@ -2152,6 +2152,6 @@
 !GraphicsContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.79 1999-07-06 22:07:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/GraphicsContext.st,v 1.80 1999-07-07 12:47:56 cg Exp $'
 ! !
 GraphicsContext initialize!
hg/stx-libview