summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-10-11 06:47:25 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-10-11 06:47:25 (GMT)
commitd5bf077d9970af39be14c3e63f6f25dfdcb85536 (patch)
tree204c669715887f7038fa12ee7b808a62db166590 /generic
parent90b51b262b19f7afeea69f91260f9703e2e1c322 (diff)
downloadtk-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.c4
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;
}