mirror of
https://github.com/python/cpython.git
synced 2025-11-25 12:44:13 +00:00
Formatting.
This commit is contained in:
parent
41317d120d
commit
845a4c6bb7
1 changed files with 16 additions and 17 deletions
|
|
@ -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;
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue