1 files changed, 25 insertions, 0 deletions
diff --git a/otherlibs/labltk/support/camltk.h b/otherlibs/labltk/support/camltk.h
new file mode 100644
index 000000000..176ad8a8b
--- /dev/null
+++ b/otherlibs/labltk/support/camltk.h
@@ -0,0 +1,25 @@
+/* cltkEval.c */
+extern Tcl_Interp *cltclinterp; /* The Tcl interpretor */
+
+/* copy a Caml string to the C heap. Must be deallocated with stat_free */
+char *string_to_c();
+
+/* cltkCaml.c */
+/* pointers to Caml values */
+extern value *tkerror_exn;
+extern value *handler_code;
+int CamlCBCmd();
+void tk_error();
+
+/* cltkMain.c */
+extern int signal_events;
+void invoke_pending_caml_signals();
+extern Tk_Window cltk_mainWindow;
+extern int cltk_slave_mode;
+
+/* check that initialisations took place */
+#define CheckInit()  if (!cltclinterp) tk_error("Tcl/Tk not initialised")
+
+#define RCNAME ".camltkrc"
+#define CAMLCB "camlcb"
+