diff options
| -rw-r--r-- | Modules/tkappinit.c | 4 |
1 files 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; |