From d19bc526e0e61bab014780e0c276e2750c7e9d92 Mon Sep 17 00:00:00 2001
From: stanton <stanton>
Date: Wed, 7 Apr 1999 00:58:22 +0000
Subject: * generic/tkMain.c (Tk_MainEx): Changed to reset result before
 calling Tcl_EvalFile.  The ensures that error messages will be generated
 cleanly.

---
 generic/tkMain.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/generic/tkMain.c b/generic/tkMain.c
index eaead05..63c9fbf 100644
--- a/generic/tkMain.c
+++ b/generic/tkMain.c
@@ -13,7 +13,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkMain.c,v 1.1.4.6 1999/03/10 07:13:44 stanton Exp $
+ * RCS: @(#) $Id: tkMain.c,v 1.1.4.7 1999/04/07 00:58:22 stanton Exp $
  */
 
 #include <ctype.h>
@@ -225,6 +225,7 @@ Tk_MainEx(argc, argv, appInitProc, interp)
      */
 
     if (fileName != NULL) {
+	Tcl_ResetResult(interp);
 	code = Tcl_EvalFile(interp, fileName);
 	if (code != TCL_OK) {
 	    /*
-- 
cgit v0.12