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.
This commit is contained in:
Guido van Rossum 1999-11-05 18:11:23 +00:00
parent 6b26a06037
commit e168c65603
1 changed files with 2 additions and 2 deletions

View File

@ -21,13 +21,13 @@ Tcl_AppInit(interp)
{ {
Tk_Window main; Tk_Window main;
main = Tk_MainWindow(interp);
if (Tcl_Init (interp) == TCL_ERROR) if (Tcl_Init (interp) == TCL_ERROR)
return TCL_ERROR; return TCL_ERROR;
if (Tk_Init (interp) == TCL_ERROR) if (Tk_Init (interp) == TCL_ERROR)
return TCL_ERROR; return TCL_ERROR;
main = Tk_MainWindow(interp);
#ifdef WITH_MOREBUTTONS #ifdef WITH_MOREBUTTONS
{ {
extern Tcl_CmdProc studButtonCmd; extern Tcl_CmdProc studButtonCmd;