From 8f3027c2d68fb19be642bb41315391056d90bd1d Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Tue, 22 Aug 2006 14:12:11 +0000
Subject: Fix bug #60. Forgot enclosed and closest.

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

(limited to 'generic/tkZinc.c')

diff --git a/generic/tkZinc.c b/generic/tkZinc.c
index 0361549..9a49cb6 100644
--- a/generic/tkZinc.c
+++ b/generic/tkZinc.c
@@ -3218,6 +3218,7 @@ FindItems(ZnWInfo       *wi,
       if (argc > first+5) {
         result = Tcl_GetBooleanFromObj(wi->interp, args[first+5], &ps.recursive);
         if (result != TCL_OK) {
+          Tcl_ResetResult(wi->interp);
           str = Tcl_GetString(args[first+5]);
           if (strcmp(str, "override") != 0) { 
             Tcl_AppendResult(wi->interp,
@@ -3267,6 +3268,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