From 382de09f322ff0d7821e5d396119b3dd4ec73dbc Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Tue, 22 Aug 2006 13:19:22 +0000
Subject: Fix bug #60. The method reported the correct result but mixed with a
 spurious error message which was not cleared. This should have been fixed.

---
 generic/tkZinc.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'generic')

diff --git a/generic/tkZinc.c b/generic/tkZinc.c
index d4aac38..0361549 100644
--- a/generic/tkZinc.c
+++ b/generic/tkZinc.c
@@ -3304,6 +3304,7 @@ FindItems(ZnWInfo       *wi,
       if (argc > first+6) {
         result = Tcl_GetBooleanFromObj(wi->interp, args[first+6], &ps.recursive);
         if (result != TCL_OK) {
+          Tcl_ResetResult(wi->interp);
           str = Tcl_GetString(args[first+6]);
           if (strcmp(str, "override") != 0) { 
             Tcl_AppendResult(wi->interp,
-- 
cgit v1.1