summaryrefslogtreecommitdiffstats
path: root/win/tkWinWm.c
diff options
context:
space:
mode:
authorhobbs <hobbs>2005-01-04 01:28:51 (GMT)
committerhobbs <hobbs>2005-01-04 01:28:51 (GMT)
commit5d9fcd39d5a1a5730271967995e7da86a8dbdabf (patch)
treec33c227040247620360d933d1aec41d6f32bfb85 /win/tkWinWm.c
parentbb8237e9407ad94a40f78b68d6fa45fe8ec304f3 (diff)
downloadtk-5d9fcd39d5a1a5730271967995e7da86a8dbdabf.zip
tk-5d9fcd39d5a1a5730271967995e7da86a8dbdabf.tar.gz
tk-5d9fcd39d5a1a5730271967995e7da86a8dbdabf.tar.bz2
* win/tkWinWm.c (TkWinWmCleanup): clean up layered window class
This caused crash in reinit of Tk (as seen in plugin).
Diffstat (limited to 'win/tkWinWm.c')
-rw-r--r--win/tkWinWm.c11
1 files changed, 10 insertions, 1 deletions
diff --git a/win/tkWinWm.c b/win/tkWinWm.c
index 60a0eee..8fd60a9 100644
--- a/win/tkWinWm.c
+++ b/win/tkWinWm.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: tkWinWm.c,v 1.54.2.16 2004/10/29 22:34:06 mdejong Exp $
+ * RCS: @(#) $Id: tkWinWm.c,v 1.54.2.17 2005/01/04 01:28:51 hobbs Exp $
*/
#include "tkWinInt.h"
@@ -1838,6 +1838,15 @@ TkWinWmCleanup(hInstance)
tsdPtr->initialized = 0;
UnregisterClass(TK_WIN_TOPLEVEL_CLASS_NAME, hInstance);
+#ifndef TCL_THREADS
+ /*
+ * Clean up specialized class created for layered windows.
+ */
+ if (setLayeredWindowAttributesProc != NULL) {
+ UnregisterClass(TK_WIN_TOPLEVEL_NOCDC_CLASS_NAME, hInstance);
+ setLayeredWindowAttributesProc = NULL;
+ }
+#endif
}
/*