summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog4
-rw-r--r--library/mkpsenc.tcl4
2 files changed, 6 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 5e621eb..52a8aa9 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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.