diff options
| author | dkf <dkf@noemail.net> | 2008-10-11 06:55:02 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2008-10-11 06:55:02 (GMT) |
| commit | a780176a44f75dadbe062fdc0e8bb01b6da2a58e (patch) | |
| tree | d401a72b3c9af3a033d4db7b739c5ca4cdb4aa00 /generic/tkCanvas.c | |
| parent | 04fa4b211811742dac16e7933d344af2d0271a91 (diff) | |
| download | tk-a780176a44f75dadbe062fdc0e8bb01b6da2a58e.zip tk-a780176a44f75dadbe062fdc0e8bb01b6da2a58e.tar.gz tk-a780176a44f75dadbe062fdc0e8bb01b6da2a58e.tar.bz2 | |
Correct error result generation of [$canvas select clear $bogus].
FossilOrigin-Name: f673c22f60e6cb8e590e0e5b473ddccc13b3919d
Diffstat (limited to 'generic/tkCanvas.c')
| -rw-r--r-- | generic/tkCanvas.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tkCanvas.c b/generic/tkCanvas.c index 5872d55..ca48d87 100644 --- a/generic/tkCanvas.c +++ b/generic/tkCanvas.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkCanvas.c,v 1.46.2.1 2008/04/17 14:52:24 dgp Exp $ + * RCS: @(#) $Id: tkCanvas.c,v 1.46.2.2 2008/10/11 06:55:03 dkf Exp $ */ /* #define USE_OLD_TAG_SEARCH 1 */ @@ -1630,7 +1630,7 @@ CanvasWidgetCmd( break; case CANV_CLEAR: if (objc != 3) { - Tcl_AppendResult(interp, 3, objv, NULL); + Tcl_WrongNumArgs(interp, 3, objv, NULL); result = TCL_ERROR; goto done; } |