diff options
author | dkf <dkf@noemail.net> | 2009-05-01 15:21:01 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2009-05-01 15:21:01 (GMT) |
commit | 1c82cc9cbf2515d59c4b175aae289707fa6b2b09 (patch) | |
tree | e49ce71dc424d8cdb632d63a88493cb03bd216ae | |
parent | bfc9a9ebc9cb1453ccbca9f5dd1cccb1fb912f8a (diff) | |
download | tk-1c82cc9cbf2515d59c4b175aae289707fa6b2b09.zip tk-1c82cc9cbf2515d59c4b175aae289707fa6b2b09.tar.gz tk-1c82cc9cbf2515d59c4b175aae289707fa6b2b09.tar.bz2 |
Fix [Bug 2777019].
FossilOrigin-Name: 935a13875780d161c879e794cc8f513b2868a2b3
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | library/mkpsenc.tcl | 4 |
2 files changed, 6 insertions, 2 deletions
@@ -1,5 +1,9 @@ 2009-05-01 Donal K. Fellows <dkf@users.sf.net> + * library/mkpsenc.tcl (DrawText): [Bug 2777019]: Corrected point of + application of rotation transform so rotation is about the anchor + point of the text. + * generic/tkCanvPs.c (Tk_PostscriptPhoto): * library/mkpsenc.tcl: Factor out the postscript code for converting images into postscript so that the code bits are in the prolog and not diff --git a/library/mkpsenc.tcl b/library/mkpsenc.tcl index dea846b..07c5217 100644 --- a/library/mkpsenc.tcl +++ b/library/mkpsenc.tcl @@ -1121,7 +1121,7 @@ namespace eval ::tk { %%BeginProlog % This is a standard prolog for Postscript generated by Tk's canvas % widget. - % RCS: @(#) $Id: mkpsenc.tcl,v 1.5 2009/05/01 15:03:17 dkf Exp $ + % RCS: @(#) $Id: mkpsenc.tcl,v 1.6 2009/05/01 15:21:02 dkf Exp $ } ps_literal [CreatePostscriptEncoding [encoding system]] ps_literal {50 dict begin} @@ -1310,9 +1310,9 @@ namespace eval ::tk { % upper-left corner of the text's bounding box. Remember that angle % for rotating, and x and y for positioning are still on the stack. translate + rotate lineLength xoffset mul strings length 1 sub spacing mul height add yoffset mul translate - rotate % Now use the baseline and justification information to translate so % that the origin is at the baseline and positioning point for the % first line of text. |