Initial revision

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;
+}
+