Formatting.

diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c
index daff9e56e0d7455003509129e4206bf1f0924ef0..08217604aa8cec29d7942ee66e7da004470467a2 100644 (file)
--- 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;
 }