summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans@users.sourceforge.net <jan.nijtmans>2011-11-17 21:04:40 (GMT)
committernijtmans@users.sourceforge.net <jan.nijtmans>2011-11-17 21:04:40 (GMT)
commit176404a61ab0904df4ea4988691e723a07e0959d (patch)
treebb89d37eddbc33a48be64d262bfb4a2a1b80f8e9
parentb35bbacb8fca4aa641eb22cb8059c767e957749c (diff)
parent47eeb008fa9cf1e81508fd22484919424621ce35 (diff)
downloadtk-176404a61ab0904df4ea4988691e723a07e0959d.zip
tk-176404a61ab0904df4ea4988691e723a07e0959d.tar.gz
tk-176404a61ab0904df4ea4988691e723a07e0959d.tar.bz2
[Bug 3437816]: Missing TCL_ERROR return in [canvas lower]
-rw-r--r--ChangeLog5
-rw-r--r--generic/tkCanvas.c1
2 files changed, 6 insertions, 0 deletions
diff --git a/ChangeLog b/ChangeLog
index 4a09749..d5bc163 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-11-17 Alexandre Ferrieux <ferrieux@users.sourceforge.net>
+
+ * generic/tkCanvas.c: [Bug 3437816]: Missing TCL_ERROR return
+ in [canvas lower].
+
2011-11-08 Reinhard Max <max@suse.de>
* unix/Makefile.in: Add square to DEMOPROGS. It contains a shebang
diff --git a/generic/tkCanvas.c b/generic/tkCanvas.c
index 253b184..14fe1ab 100644
--- a/generic/tkCanvas.c
+++ b/generic/tkCanvas.c
@@ -1407,6 +1407,7 @@ CanvasWidgetCmd(
if (itemPtr == NULL) {
Tcl_AppendResult(interp, "tag \"", Tcl_GetString(objv[3]),
"\" doesn't match any items", NULL);
+ result = TCL_ERROR;
goto done;
}
itemPtr = itemPtr->prevPtr;