From 100d627002c4b728f880e9991ded0a17dfdb18b8 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Tue, 25 Apr 2000 01:02:30 +0000
Subject: 	* generic/tkConfig.c (DoObjConfig): removed direct setting of 
 interp->result.

FossilOrigin-Name: 16ebd2716c25dc2d2a5ec36fd55a75c881802cb1
---
 generic/tkConfig.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/generic/tkConfig.c b/generic/tkConfig.c
index 5ec9203..471af9d 100644
--- a/generic/tkConfig.c
+++ b/generic/tkConfig.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkConfig.c,v 1.6 1999/11/23 23:52:13 hobbs Exp $
+ * RCS: @(#) $Id: tkConfig.c,v 1.7 2000/04/25 01:02:30 hobbs Exp $
  */
 
 /*
@@ -891,8 +891,10 @@ DoObjConfig(interp, recordPtr, optionPtr, valuePtr, tkwin, savedOptionPtr)
 	    break;
 	}
 	default: {
-	    sprintf(interp->result, "bad config table: unknown type %d",
+	    char buf[40+TCL_INTEGER_SPACE];
+	    sprintf(buf, "bad config table: unknown type %d",
 		    optionPtr->specPtr->type);
+	    Tcl_SetResult(interp, buf, TCL_VOLATILE);
 	    return TCL_ERROR;
 	}
     }
-- 
cgit v0.12