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 392269b18c297f409de3c414b8b420b8f382e77c..c57f0e7c2816a63ce68fd2b02c8698c3062b7b01 100644 (file)
--- 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;