diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-15 14:56:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-15 14:56:05 (GMT) |
| commit | 002b62783852b8976a99c3c335c02a9e7b2620b5 (patch) | |
| tree | e917ce2bb4fc8961d0de782ce87d967679bb4de5 /generic/tkCanvPs.c | |
| parent | 8b59cb5249fe45bac39e65cb724d77b434168d9f (diff) | |
| download | tk-002b62783852b8976a99c3c335c02a9e7b2620b5.zip tk-002b62783852b8976a99c3c335c02a9e7b2620b5.tar.gz tk-002b62783852b8976a99c3c335c02a9e7b2620b5.tar.bz2 | |
Another attempt to fix [434d294df8b053246ee86e7898d06bc3a6d1d771|434d294df8], this time (hopefully) suitable for 8.6. (less changes than the original attempt)
Diffstat (limited to 'generic/tkCanvPs.c')
| -rw-r--r-- | generic/tkCanvPs.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tkCanvPs.c b/generic/tkCanvPs.c index c6470dd..2bfdcc5 100644 --- a/generic/tkCanvPs.c +++ b/generic/tkCanvPs.c @@ -825,7 +825,7 @@ Tk_PostscriptFont( fontname = Tcl_DStringValue(&ds); Tcl_AppendPrintfToObj(GetPostscriptBuffer(interp), "/%s findfont %d scalefont%s setfont\n", - fontname, TkFontGetPoints(psInfoPtr->tkwin, points), + fontname, (int)(TkFontGetPoints(psInfoPtr->tkwin, points) + 0.5), strncasecmp(fontname, "Symbol", 7) ? " ISOEncode" : ""); Tcl_CreateHashEntry(&psInfoPtr->fontTable, Tcl_DStringValue(&ds), &i); Tcl_DStringFree(&ds); |