diff options
| -rw-r--r-- | Modules/tkappinit.c | 35 |
1 files changed, 17 insertions, 18 deletions
diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c index daff9e5..0821760 100644 --- a/Modules/tkappinit.c +++ b/Modules/tkappinit.c @@ -5,32 +5,31 @@ int Tcl_AppInit (interp) - Tcl_Interp *interp; + Tcl_Interp *interp; { - Tk_Window main; + Tk_Window main; - main = Tk_MainWindow(interp); + main = Tk_MainWindow(interp); - if (Tcl_Init (interp) == TCL_ERROR) - return TCL_ERROR; - if (Tk_Init (interp) == TCL_ERROR) - return TCL_ERROR; + if (Tcl_Init (interp) == TCL_ERROR) + return TCL_ERROR; + if (Tk_Init (interp) == TCL_ERROR) + return TCL_ERROR; #ifdef WITH_MOREBUTTONS - { - extern Tcl_CmdProc studButtonCmd; - extern Tcl_CmdProc triButtonCmd; - - Tcl_CreateCommand(interp, "studbutton", studButtonCmd, - (ClientData) main, NULL); - Tcl_CreateCommand(interp, "tributton", triButtonCmd, - (ClientData) main, NULL); - } + { + extern Tcl_CmdProc studButtonCmd; + extern Tcl_CmdProc triButtonCmd; + + Tcl_CreateCommand(interp, "studbutton", studButtonCmd, + (ClientData) main, NULL); + Tcl_CreateCommand(interp, "tributton", triButtonCmd, + (ClientData) main, NULL); + } #endif #ifdef WITH_XXX #endif - - return TCL_OK; + return TCL_OK; } |