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:
parent
6b26a06037
commit
e168c65603
|
@ -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;
|
||||||
|
|
Loading…
Reference in New Issue