diff options
author | lecoanet | 2006-08-22 13:19:22 +0000 |
---|---|---|
committer | lecoanet | 2006-08-22 13:19:22 +0000 |
commit | 382de09f322ff0d7821e5d396119b3dd4ec73dbc (patch) | |
tree | a8bdfc97c609965b87c16f56d6e9e41278710459 /generic/tkZinc.c | |
parent | 92a9f5990c25f8819e116006dbada5d0cf1d3e42 (diff) | |
download | tkzinc-382de09f322ff0d7821e5d396119b3dd4ec73dbc.zip tkzinc-382de09f322ff0d7821e5d396119b3dd4ec73dbc.tar.gz tkzinc-382de09f322ff0d7821e5d396119b3dd4ec73dbc.tar.bz2 tkzinc-382de09f322ff0d7821e5d396119b3dd4ec73dbc.tar.xz |
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.
Diffstat (limited to 'generic/tkZinc.c')
-rw-r--r-- | generic/tkZinc.c | 1 |
1 files changed, 1 insertions, 0 deletions
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, |