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 392269b..c57f0e7 100644
--- a/Modules/tkappinit.c
+++ b/Modules/tkappinit.c
@@ -21,13 +21,13 @@
{
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;