diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-18 14:22:20 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-10-18 14:22:20 (GMT) |
| commit | 678e5a8acf06358ad722dff065fb80fcd06e7d15 (patch) | |
| tree | 5859725f08cf8f5c220d3fd04da0f8fe6f0d3103 /generic/tkWindow.c | |
| parent | ce82534d5c94d852ec68426e7cfd45c29f72e5c9 (diff) | |
| download | tk-678e5a8acf06358ad722dff065fb80fcd06e7d15.zip tk-678e5a8acf06358ad722dff065fb80fcd06e7d15.tar.gz tk-678e5a8acf06358ad722dff065fb80fcd06e7d15.tar.bz2 | |
Implementation of the [tk busy] command on non-OSX.
Adapted from [Patch 1997907]
Diffstat (limited to 'generic/tkWindow.c')
| -rw-r--r-- | generic/tkWindow.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tkWindow.c b/generic/tkWindow.c index 7e947cf..87e93c9 100644 --- a/generic/tkWindow.c +++ b/generic/tkWindow.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: tkWindow.c,v 1.96 2008/08/19 15:52:12 georgeps Exp $ + * RCS: @(#) $Id: tkWindow.c,v 1.97 2008/10/18 14:22:21 dkf Exp $ */ #include "tkInt.h" @@ -926,6 +926,7 @@ TkCreateMainWindow( hPtr = Tcl_CreateHashEntry(&mainPtr->nameTable, ".", &dummy); Tcl_SetHashValue(hPtr, winPtr); winPtr->pathName = Tcl_GetHashKey(&mainPtr->nameTable, hPtr); + Tcl_InitHashTable(&mainPtr->busyTable, TCL_ONE_WORD_KEYS); /* * We have just created another Tk application; increment the refcount on @@ -1529,6 +1530,7 @@ Tk_DestroyWindow( "::tk::AlwaysShowSelection"); } + Tcl_DeleteHashTable(&winPtr->mainPtr->busyTable); Tcl_DeleteHashTable(&winPtr->mainPtr->nameTable); TkBindFree(winPtr->mainPtr); TkDeleteAllImages(winPtr->mainPtr); |