Mirror
/
cpython
mirror of https://github.com/python/cpython
4
1
Fork 0
Code Issues Releases Wiki Activity

Formatting.

This commit is contained in:
Barry Warsaw 1997-01-14 17:36:36 +00:00
parent 41317d120d
commit 845a4c6bb7
1 changed files with 16 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
Modules/tkappinit.c
View File

@ -5,32 +5,31 @@
int int
Tcl_AppInit (interp) 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) 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;
#ifdef WITH_MOREBUTTONS #ifdef WITH_MOREBUTTONS
{ {
extern Tcl_CmdProc studButtonCmd; extern Tcl_CmdProc studButtonCmd;
extern Tcl_CmdProc triButtonCmd; extern Tcl_CmdProc triButtonCmd;
Tcl_CreateCommand(interp, "studbutton", studButtonCmd, Tcl_CreateCommand(interp, "studbutton", studButtonCmd,
(ClientData) main, NULL); (ClientData) main, NULL);
Tcl_CreateCommand(interp, "tributton", triButtonCmd, Tcl_CreateCommand(interp, "tributton", triButtonCmd,
(ClientData) main, NULL); (ClientData) main, NULL);
} }
#endif #endif
#ifdef WITH_XXX #ifdef WITH_XXX
#endif #endif
return TCL_OK;
return TCL_OK;
} }