Patch by Dieter Maurer to make things work for Tcl/Tk 8.1. This

gvanrossum · gvanrossum · commit e168c65603db · 1999-11-05T18:11:23.000Z
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
@@ -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;

Original file line number	Diff line number	Diff line change
`@@ -21,13 +21,13 @@ Tcl_AppInit(interp)`
`21`	`21`	`{`
`22`	`22`	`Tk_Window main;`
`23`	`23`
`24`		`- main = Tk_MainWindow(interp);`
`25`		`-`
`26`	`24`	`if (Tcl_Init (interp) == TCL_ERROR)`
`27`	`25`	`return TCL_ERROR;`
`28`	`26`	`if (Tk_Init (interp) == TCL_ERROR)`
`29`	`27`	`return TCL_ERROR;`
`30`	`28`
	`29`	`+ main = Tk_MainWindow(interp);`
	`30`	`+`
`31`	`31`	`#ifdef WITH_MOREBUTTONS`
`32`	`32`	`{`
`33`	`33`	`extern Tcl_CmdProc studButtonCmd;`