From: Guido van Rossum <guido@python.org>
Date: Fri, 5 Nov 1999 18:11:23 +0000 (+0000)
Subject: Patch by Dieter Maurer to make things work for Tcl/Tk 8.1.  This
X-Git-Tag: v1.6a1~762
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=e168c65603db4d024d635af966435d70d96800e7;p=python

Patch by Dieter Maurer to make things work for Tcl/Tk 8.1.  This
simply moves the call to Tk_MainWindow() after the Tcl/Tk
initialization calls.  The patch is unconditional, it works with
earlier and later versions as well.
---

diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c
index 392269b18c..c57f0e7c28 100644
--- a/Modules/tkappinit.c
+++ b/Modules/tkappinit.c
@@ -21,13 +21,13 @@ Tcl_AppInit(interp)
 {
 	Tk_Window main;
 
-	main = Tk_MainWindow(interp);
-
 	if (Tcl_Init (interp) == TCL_ERROR)
 		return TCL_ERROR;
 	if (Tk_Init (interp) == TCL_ERROR)
 		return TCL_ERROR;
 
+	main = Tk_MainWindow(interp);
+
 #ifdef WITH_MOREBUTTONS
 	{
 		extern Tcl_CmdProc studButtonCmd;