diff options
author | fvogel <fvogelnew1@free.fr> | 2020-03-12 21:09:37 (GMT) |
---|---|---|
committer | fvogel <fvogelnew1@free.fr> | 2020-03-12 21:09:37 (GMT) |
commit | c4c42ab47ea735e7c79416a00708adcaacdcc7b2 (patch) | |
tree | 48c1f9a479a57c38ae7a0978ae65389a05464beb /generic/tkCanvPs.c | |
parent | b36fe5790a29cf78c58ab273cce93ab0604076ba (diff) | |
parent | b2f247407ac9d918c19e9846eb909a8ffb814094 (diff) | |
download | tk-c4c42ab47ea735e7c79416a00708adcaacdcc7b2.zip tk-c4c42ab47ea735e7c79416a00708adcaacdcc7b2.tar.gz tk-c4c42ab47ea735e7c79416a00708adcaacdcc7b2.tar.bz2 |
Fix [2edd843def]: canvas postscript returns non empty string when -file or -channel is specified. Fix by Emiliano Gavilan.
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 386ada9..444d6ff 100644 --- a/generic/tkCanvPs.c +++ b/generic/tkCanvPs.c @@ -572,7 +572,6 @@ TkCanvPostscriptCmd( continue; } - Tcl_ResetResult(interp); result = itemPtr->typePtr->postscriptProc(interp, (Tk_Canvas) canvasPtr, itemPtr, 0); if (result != TCL_OK) { @@ -585,6 +584,7 @@ TkCanvPostscriptCmd( Tcl_AppendToObj(psObj, "gsave\n", -1); Tcl_AppendObjToObj(psObj, Tcl_GetObjResult(interp)); Tcl_AppendToObj(psObj, "grestore\n", -1); + Tcl_ResetResult(interp); if (psInfo.chan != NULL) { if (Tcl_WriteObj(psInfo.chan, psObj) == TCL_IO_FAILURE) { |