From 98ce5122c76463bdbded0960323f7a06c2082360 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Tue, 3 Jul 2001 05:59:50 +0000
Subject: 	* generic/tkWindow.c (Tk_DestroyWindow): changed to use 
 Tcl_EventuallyFree instead of ckfree so that widgets that have 
 references to a tkwin can use them.

---
 generic/tkWindow.c | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/generic/tkWindow.c b/generic/tkWindow.c
index 6a33f44..522df47 100644
--- a/generic/tkWindow.c
+++ b/generic/tkWindow.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkWindow.c,v 1.30 2001/05/28 16:56:02 pspjuth Exp $
+ * RCS: @(#) $Id: tkWindow.c,v 1.31 2001/07/03 05:59:50 hobbs Exp $
  */
 
 #include "tkPort.h"
@@ -1394,12 +1394,12 @@ Tk_DestroyWindow(tkwin)
 	    /*
 	     * We just deleted the last window in the application.  Delete
 	     * the TkMainInfo structure too and replace all of Tk's commands
-	     * with dummy commands that return errors.  Also delete the
+	     * with dummy commands that return errors.	Also delete the
 	     * "send" command to unregister the interpreter.
-             *
-             * NOTE: Only replace the commands it if the interpreter is
-             * not being deleted. If it *is*, the interpreter cleanup will
-             * do all the needed work.
+	     *
+	     * NOTE: Only replace the commands it if the interpreter is
+	     * not being deleted. If it *is*, the interpreter cleanup will
+	     * do all the needed work.
 	     */
 
             if ((winPtr->mainPtr->interp != NULL) &&
@@ -1494,7 +1494,7 @@ Tk_DestroyWindow(tkwin)
             }
 	}
     }
-    ckfree((char *) winPtr);
+    Tcl_EventuallyFree((ClientData) winPtr, TCL_DYNAMIC);
 }
 
 /*
-- 
cgit v0.12