diff options
author | Guido van Rossum <guido@python.org> | 1994-06-27 08:00:16 (GMT) |
---|---|---|
committer | Guido van Rossum <guido@python.org> | 1994-06-27 08:00:16 (GMT) |
commit | f713247ed7c42c8cabbf705a9b6c0b9418f32ab8 (patch) | |
tree | 417680d15b9ae0eb13645ac0331be709ae25fa23 /Modules/tkappinit.c | |
parent | 7687522309644cfc1887c01150e2711a7be237f6 (diff) | |
download | cpython-f713247ed7c42c8cabbf705a9b6c0b9418f32ab8.zip cpython-f713247ed7c42c8cabbf705a9b6c0b9418f32ab8.tar.gz cpython-f713247ed7c42c8cabbf705a9b6c0b9418f32ab8.tar.bz2 |
Initial revision
Diffstat (limited to 'Modules/tkappinit.c')
-rw-r--r-- | Modules/tkappinit.c | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/Modules/tkappinit.c b/Modules/tkappinit.c new file mode 100644 index 0000000..daff9e5 --- /dev/null +++ b/Modules/tkappinit.c @@ -0,0 +1,36 @@ +/* appinit.c -- Tcl and Tk application initialization. */ + +#include <tcl.h> +#include <tk.h> + +int +Tcl_AppInit (interp) + Tcl_Interp *interp; +{ + Tk_Window main; + + main = Tk_MainWindow(interp); + + 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); + } +#endif +#ifdef WITH_XXX + +#endif + + return TCL_OK; +} + |