diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2007-05-03 15:21:31 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2007-05-03 15:21:31 (GMT) |
| commit | b4a1780d87be0a45798fe19a90a8317bf235404a (patch) | |
| tree | 4b65e0e57b4ff5c4424e1dd85c980a9425cd118c /generic/tkCanvPs.c | |
| parent | 458541e13fd91e5f1323f40e835d5d9fca59d32c (diff) | |
| download | tk-b4a1780d87be0a45798fe19a90a8317bf235404a.zip tk-b4a1780d87be0a45798fe19a90a8317bf235404a.tar.gz tk-b4a1780d87be0a45798fe19a90a8317bf235404a.tar.bz2 | |
Tackle [Bug 1711985]
Diffstat (limited to 'generic/tkCanvPs.c')
| -rw-r--r-- | generic/tkCanvPs.c | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/generic/tkCanvPs.c b/generic/tkCanvPs.c index 5fcdd15..a650d46 100644 --- a/generic/tkCanvPs.c +++ b/generic/tkCanvPs.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkCanvPs.c,v 1.16 2005/11/04 15:23:05 dkf Exp $ + * RCS: @(#) $Id: tkCanvPs.c,v 1.17 2007/05/03 15:21:32 dkf Exp $ */ #include "tkInt.h" @@ -161,7 +161,7 @@ TkCanvPostscriptCmd( * this command enough to know that argv[1] is * "postscript". */ { - TkPostscriptInfo psInfo; + TkPostscriptInfo psInfo, *psInfoPtr = &psInfo; Tk_PostscriptInfo oldInfoPtr; int result; Tk_Item *itemPtr; @@ -191,7 +191,7 @@ TkCanvPostscriptCmd( return result; } oldInfoPtr = canvasPtr->psInfo; - canvasPtr->psInfo = (Tk_PostscriptInfo) &psInfo; + canvasPtr->psInfo = (Tk_PostscriptInfo) psInfoPtr; psInfo.x = canvasPtr->xOrigin; psInfo.y = canvasPtr->yOrigin; psInfo.width = -1; @@ -493,14 +493,14 @@ TkCanvPostscriptCmd( Tcl_AppendResult(interp, string, NULL); sprintf(string, "%d %.15g moveto %d %.15g lineto %d %.15g lineto %d %.15g", - psInfo.x, - Tk_PostscriptY((double)psInfo.y, (Tk_PostscriptInfo)&psInfo), - psInfo.x2, - Tk_PostscriptY((double)psInfo.y, (Tk_PostscriptInfo)&psInfo), - psInfo.x2, - Tk_PostscriptY((double)psInfo.y2, (Tk_PostscriptInfo)&psInfo), - psInfo.x, - Tk_PostscriptY((double)psInfo.y2, (Tk_PostscriptInfo)&psInfo)); + psInfo.x, Tk_PostscriptY((double)psInfo.y, + (Tk_PostscriptInfo)psInfoPtr), + psInfo.x2, Tk_PostscriptY((double)psInfo.y, + (Tk_PostscriptInfo)psInfoPtr), + psInfo.x2, Tk_PostscriptY((double)psInfo.y2, + (Tk_PostscriptInfo)psInfoPtr), + psInfo.x, Tk_PostscriptY((double)psInfo.y2, + (Tk_PostscriptInfo)psInfoPtr)); Tcl_AppendResult(interp, string, " lineto closepath clip newpath\n", NULL); } |