summaryrefslogtreecommitdiffstats
path: root/Modules/tkappinit.c
diff options
context:
space:
mode:
authorGuido van Rossum <guido@python.org>1994-06-27 08:00:16 (GMT)
committerGuido van Rossum <guido@python.org>1994-06-27 08:00:16 (GMT)
commitf713247ed7c42c8cabbf705a9b6c0b9418f32ab8 (patch)
tree417680d15b9ae0eb13645ac0331be709ae25fa23 /Modules/tkappinit.c
parent7687522309644cfc1887c01150e2711a7be237f6 (diff)
downloadcpython-f713247ed7c42c8cabbf705a9b6c0b9418f32ab8.zip
cpython-f713247ed7c42c8cabbf705a9b6c0b9418f32ab8.tar.gz
cpython-f713247ed7c42c8cabbf705a9b6c0b9418f32ab8.tar.bz2
Initial revision
Diffstat (limited to 'Modules/tkappinit.c')
-rw-r--r--Modules/tkappinit.c36
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;
+}
+