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.

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;