diff options
| author | hobbs <hobbs> | 2001-07-03 05:59:50 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-07-03 05:59:50 (GMT) |
| commit | 98ce5122c76463bdbded0960323f7a06c2082360 (patch) | |
| tree | 4cf175918d1172240bd4c3261afef45deee6fd50 | |
| parent | 57dee857622ab7a2a15091b6b097f057b0ace6f3 (diff) | |
| download | tk-98ce5122c76463bdbded0960323f7a06c2082360.zip tk-98ce5122c76463bdbded0960323f7a06c2082360.tar.gz tk-98ce5122c76463bdbded0960323f7a06c2082360.tar.bz2 | |
* 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.
| -rw-r--r-- | generic/tkWindow.c | 14 |
1 files 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); } /* |