Formatting.
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;
+ {
+ extern Tcl_CmdProc studButtonCmd;
+ extern Tcl_CmdProc triButtonCmd;
- Tcl_CreateCommand(interp, "studbutton", studButtonCmd,
- (ClientData) main, NULL);
- Tcl_CreateCommand(interp, "tributton", triButtonCmd,
- (ClientData) main, NULL);
- }
+ 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;
}