aboutsummaryrefslogtreecommitdiffstats
path: root/recipes/tcltk/tk-8.5.8/canvasps.diff
diff options
context:
space:
mode:
Diffstat (limited to 'recipes/tcltk/tk-8.5.8/canvasps.diff')
-rw-r--r--recipes/tcltk/tk-8.5.8/canvasps.diff23
1 files changed, 23 insertions, 0 deletions
diff --git a/recipes/tcltk/tk-8.5.8/canvasps.diff b/recipes/tcltk/tk-8.5.8/canvasps.diff
new file mode 100644
index 0000000000..5cb9a6ae43
--- /dev/null
+++ b/recipes/tcltk/tk-8.5.8/canvasps.diff
@@ -0,0 +1,23 @@
+Patch by Sergei Golovan.
+
+It ensures that font size is positive (measured in pixels). This fixes
+mirrored text problem in canvas postscript output.
+
+--- tk8.5-8.5.5.orig/unix/tkUnixRFont.c
++++ tk8.5-8.5.5/unix/tkUnixRFont.c
+@@ -260,6 +260,7 @@
+ ftFont = GetFont(fontPtr, 0);
+ fontPtr->font.fid = XLoadFont(Tk_Display(tkwin), "fixed");
+ GetTkFontAttributes(ftFont, &fontPtr->font.fa);
++ fontPtr->font.fa.size = TkFontGetPoints(tkwin, fontPtr->font.fa.size);
+ GetTkFontMetrics(ftFont, &fontPtr->font.fm);
+
+ return fontPtr;
+@@ -518,6 +519,7 @@
+
+ GetTkFontAttributes(ftFont, faPtr);
+ faPtr->underline = fontPtr->font.fa.underline;
++ faPtr->size = TkFontGetPoints(tkwin, faPtr->size);
+ faPtr->overstrike = fontPtr->font.fa.overstrike;
+ }
+