[Pkg-tcltk-commits] r744 - in tk8.5/branches/experimental: . debian/patches

[sgolovan-guest at alioth.debian.org]

Author: sgolovan-guest
Date: 2008-10-17 09:27:41 +0000 (Fri, 17 Oct 2008)
New Revision: 744

Added:
   tk8.5/branches/experimental/debian/patches/canvasps.diff
Removed:
   tk8.5/branches/experimental/unix/
Modified:
   tk8.5/branches/experimental/debian/patches/series
Log:
[tcl8.5-experimental]
Turned mirrored font in postscript fix into a patch.


Added: tk8.5/branches/experimental/debian/patches/canvasps.diff
===================================================================
--- tk8.5/branches/experimental/debian/patches/canvasps.diff	                        (rev 0)
+++ tk8.5/branches/experimental/debian/patches/canvasps.diff	2008-10-17 09:27:41 UTC (rev 744)
@@ -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;
+ }
+ 

Modified: tk8.5/branches/experimental/debian/patches/series
===================================================================
--- tk8.5/branches/experimental/debian/patches/series	2008-10-17 09:11:48 UTC (rev 743)
+++ tk8.5/branches/experimental/debian/patches/series	2008-10-17 09:27:41 UTC (rev 744)
@@ -6,3 +6,4 @@
 non-linux.diff
 manpages.diff
 #fontsize.diff
+canvasps.diff