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.
*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 30 Apr 2014 15:10:47 +0200
changeset 6459 c444a3ac9a7f
parent 6458 5d0126fce68c
child 6460 83f668218253
*** empty log message ***
XftFontDescription.st file | annotate | diff | comparison | revisions 
--- a/XftFontDescription.st	Wed Apr 30 12:45:36 2014 +0200
+++ b/XftFontDescription.st	Wed Apr 30 15:10:47 2014 +0200
@@ -557,14 +557,8 @@
 	drawX := xArg.
 	drawY := yArg.
     ] ifFalse:[
-	drawX := transformation applyToX:xArg.
-	drawY := transformation applyToY:yArg.
-	clipR notNil ifTrue:[
-	    clipX := transformation applyToX:clipX.
-	    clipY := transformation applyToY:clipY.
-	    clipW := transformation applyScaleX:clipW.
-	    clipH := transformation applyScaleY:clipH.
-	].
+	drawX := (transformation applyToX:xArg) ceiling.
+	drawY := (transformation applyToY:yArg) ceiling.
     ].
 
     fg  :=  aGC paint.
@@ -2035,11 +2029,11 @@
 !XftFontDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.50 2014-04-30 10:45:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.51 2014-04-30 13:10:47 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.50 2014-04-30 10:45:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XftFontDescription.st,v 1.51 2014-04-30 13:10:47 cg Exp $'
 ! !
hg/stx-libview