diff options
Diffstat (limited to 'generic/tkCanvPs.c')
| -rw-r--r-- | generic/tkCanvPs.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/generic/tkCanvPs.c b/generic/tkCanvPs.c index eafc07f..69c9cfb 100644 --- a/generic/tkCanvPs.c +++ b/generic/tkCanvPs.c @@ -548,11 +548,9 @@ TkCanvPostscriptCmd( result = itemPtr->typePtr->postscriptProc(interp, (Tk_Canvas) canvasPtr, itemPtr, 0); if (result != TCL_OK) { - char msg[64 + TCL_INTEGER_SPACE]; - - sprintf(msg, "\n (generating Postscript for item %d)", - itemPtr->id); - Tcl_AddErrorInfo(interp, msg); + Tcl_AppendObjToErrorInfo(interp, Tcl_ObjPrintf( + "\n (generating Postscript for item %d)", + itemPtr->id)); goto cleanup; } Tcl_AppendResult(interp, "grestore\n", NULL); |