diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-11-01 16:14:30 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-11-01 16:14:30 (GMT) |
| commit | 34b4cad4e3503c1096ae5b33c6d67826b83dd076 (patch) | |
| tree | 4e8a5b483e677ce21736b85bf96f01f0fa1ea457 /generic/tkCanvPs.c | |
| parent | 1ed5704ca8775530ac5ef1ca6d648a4029112823 (diff) | |
| download | tk-34b4cad4e3503c1096ae5b33c6d67826b83dd076.zip tk-34b4cad4e3503c1096ae5b33c6d67826b83dd076.tar.gz tk-34b4cad4e3503c1096ae5b33c6d67826b83dd076.tar.bz2 | |
Implementation of TIP 97 - canvas imove and rchars methods.
Diffstat (limited to 'generic/tkCanvPs.c')
| -rw-r--r-- | generic/tkCanvPs.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tkCanvPs.c b/generic/tkCanvPs.c index a5efd72..951245a 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.20 2008/04/27 22:38:55 dkf Exp $ + * RCS: @(#) $Id: tkCanvPs.c,v 1.21 2008/11/01 16:14:30 dkf Exp $ */ #include "tkInt.h" @@ -383,7 +383,7 @@ TkCanvPostscriptCmd( if (itemPtr->typePtr->postscriptProc == NULL) { continue; } - result = (*itemPtr->typePtr->postscriptProc)(interp, + result = itemPtr->typePtr->postscriptProc(interp, (Tk_Canvas) canvasPtr, itemPtr, 1); Tcl_ResetResult(interp); if (result != TCL_OK) { @@ -393,6 +393,7 @@ TkCanvPostscriptCmd( * can happen later that don't happen now, so we still have to * check for errors later anyway). */ + break; } } @@ -527,7 +528,7 @@ TkCanvPostscriptCmd( continue; } Tcl_AppendResult(interp, "gsave\n", NULL); - result = (*itemPtr->typePtr->postscriptProc)(interp, + result = itemPtr->typePtr->postscriptProc(interp, (Tk_Canvas) canvasPtr, itemPtr, 0); if (result != TCL_OK) { char msg[64 + TCL_INTEGER_SPACE]; |