From 25efdb60d009bd10bd0586744245c7bde17f40da Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Thu, 17 Nov 2011 20:57:02 +0000
Subject: [Bug 3437816]: Missing TCL_ERROR return in [canvas lower]
---
ChangeLog | 5 +++++
generic/tkCanvas.c | 1 +
2 files changed, 6 insertions(+)
diff --git a/ChangeLog b/ChangeLog
index 8cf7f10..b59cb29 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-10-11 Jan Nijtmans <nijtmans@users.sf.net>
* generic/tk.h: Add dummy user_data field to
diff --git a/generic/tkCanvas.c b/generic/tkCanvas.c
index 197f28e..8f9641f 100644
--- a/generic/tkCanvas.c
+++ b/generic/tkCanvas.c
@@ -1505,6 +1505,7 @@ CanvasWidgetCmd(clientData, interp, objc, objv)
if (itemPtr == NULL) {
Tcl_AppendResult(interp, "tag \"", Tcl_GetString(objv[3]),
"\" doesn't match any items", (char *) NULL);
+ result = TCL_ERROR;
goto done;
}
itemPtr = itemPtr->prevPtr;
--
cgit v0.12