diff options
| author | hobbs <hobbs> | 2002-12-06 23:29:37 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2002-12-06 23:29:37 (GMT) |
| commit | df50e6eb7fcee1b7b60c7dc9c0d1968124197b9e (patch) | |
| tree | 5929fe9f8d605ca8e874bea4a8c835657cd5367d /win/tkWinX.c | |
| parent | 2be80c2ee9e0835f69dbc4773498a020c025bd0c (diff) | |
| download | tk-df50e6eb7fcee1b7b60c7dc9c0d1968124197b9e.zip tk-df50e6eb7fcee1b7b60c7dc9c0d1968124197b9e.tar.gz tk-df50e6eb7fcee1b7b60c7dc9c0d1968124197b9e.tar.bz2 | |
* win/tkWinX.c (TkWinXInit): Move cleanup into an exit handler
* win/tkWin32Dll.c (DllMain): to ensure that it will be called
* win/tkWinWm.c (TkWinWmCleanup): without having to unload the dll.
Also reset the static int initialized on cleanup to allow reinit.
Diffstat (limited to 'win/tkWinX.c')
| -rw-r--r-- | win/tkWinX.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/win/tkWinX.c b/win/tkWinX.c index 9de5da3..f97db04 100644 --- a/win/tkWinX.c +++ b/win/tkWinX.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkWinX.c,v 1.23 2002/06/19 19:37:55 mdejong Exp $ + * RCS: @(#) $Id: tkWinX.c,v 1.24 2002/12/06 23:29:37 hobbs Exp $ */ #include "tkWinInt.h" @@ -249,6 +249,12 @@ TkWinXInit(hInstance) if (!RegisterClass(&childClass)) { panic("Unable to register TkChild class"); } + + /* + * Make sure we cleanup on finalize. + */ + Tcl_CreateExitHandler((Tcl_ExitProc *) TkWinXCleanup, + (ClientData) hInstance); } /* |