diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-11 06:47:25 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-11 06:47:25 (GMT) |
| commit | d5bf077d9970af39be14c3e63f6f25dfdcb85536 (patch) | |
| tree | 204c669715887f7038fa12ee7b808a62db166590 /generic | |
| parent | 90b51b262b19f7afeea69f91260f9703e2e1c322 (diff) | |
| download | tk-d5bf077d9970af39be14c3e63f6f25dfdcb85536.zip tk-d5bf077d9970af39be14c3e63f6f25dfdcb85536.tar.gz tk-d5bf077d9970af39be14c3e63f6f25dfdcb85536.tar.bz2 | |
Correct error result generation of [$canvas select clear $bogus].
Diffstat (limited to 'generic')
| -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 bc37043..97fd093 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.51 2008/09/30 23:54:46 dkf Exp $ + * RCS: @(#) $Id: tkCanvas.c,v 1.52 2008/10/11 06:47:25 dkf Exp $ */ /* #define USE_OLD_TAG_SEARCH 1 */ @@ -1712,7 +1712,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; } |