# HG changeset patch
# User Ethan Blanton <elb@pidgin.im>
# Date 1071094298 0
# Node ID 0408e93c8a72d35dcf012ec0a73feb3f782295e1
# Parent  ee32e030c9be3d9d63a8a13f743df74d5077dc74
[gaim-migrate @ 8480]
Say hello to Tk 8.4 for me!

committer: Tailor Script <tailor@pidgin.im>

diff -r ee32e030c9be -r 0408e93c8a72 plugins/tcl/tcl.c
--- a/plugins/tcl/tcl.c	Wed Dec 10 16:48:23 2003 +0000
+++ b/plugins/tcl/tcl.c	Wed Dec 10 22:11:38 2003 +0000
@@ -137,10 +137,6 @@
 		return NULL;
 	}
 
-#ifdef HAVE_TK
-	Tcl_StaticPackage(interp, "Tk", Tk_Init, Tk_SafeInit);
-#endif /* HAVE_TK */
-
 	if (tcl_init_interp(interp)) {
 		Tcl_DeleteInterp(interp);
 		return NULL;
@@ -312,6 +308,10 @@
 	tcl_signal_init();
 	tcl_plugins = g_hash_table_new(g_direct_hash, g_direct_equal);
 
+#ifdef HAVE_TK
+	Tcl_StaticPackage(NULL, "Tk", Tk_Init, Tk_SafeInit);
+#endif /* HAVE_TK */
+
 	return TRUE;
 }