From ccbffd0e25dc9ee8600eee53815af75be7268a05 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Wed, 20 Mar 2002 02:59:30 +0000
Subject: 	* generic/tkOldConfig.c (Tk_ConfigureValue): prevent leaving 
 interp->result as NULL.

---
 ChangeLog             | 5 +++++
 generic/tkOldConfig.c | 8 +++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index fe1e050..d63696b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-03-19  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* generic/tkOldConfig.c (Tk_ConfigureValue): prevent leaving
+	interp->result as NULL.
+
 2002-03-07  Donal K. Fellows  <fellowsd@cs.man.ac.uk>
 
 	* library/text.tcl (TextPasteSelection): Renaming of TextPaste to
diff --git a/generic/tkOldConfig.c b/generic/tkOldConfig.c
index 1f206fb..86bb5ff 100644
--- a/generic/tkOldConfig.c
+++ b/generic/tkOldConfig.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkOldConfig.c,v 1.10 2002/01/25 21:09:37 dgp Exp $
+ * RCS: @(#) $Id: tkOldConfig.c,v 1.11 2002/03/20 02:59:30 hobbs Exp $
  */
 
 #include "tkPort.h"
@@ -941,6 +941,12 @@ Tk_ConfigureValue(interp, tkwin, specs, widgRec, argvName, flags)
     }
     interp->result = FormatConfigValue(interp, tkwin, specPtr, widgRec,
 	    interp->result, &interp->freeProc);
+    /*
+     * Don't let the interp->result be NULL.
+     */
+    if (interp->result == NULL) {
+	interp->result = "";
+    }
     return TCL_OK;
 }
 
-- 
cgit v0.12