From e168c65603db4d024d635af966435d70d96800e7 Mon Sep 17 00:00:00 2001 From: Guido van Rossum Date: Fri, 5 Nov 1999 18:11:23 +0000 Subject: [PATCH] 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 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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; -- 2.40.0