From 27c082c04663ff18459777e111aca4cde20df265 Mon Sep 17 00:00:00 2001
From: Jacques Garrigue <garrigue at math.nagoya-u.ac.jp>
Date: Tue, 16 Nov 1999 10:29:03 +0000
Subject: leave labltk only in olabl branch
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2536 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
---
otherlibs/labltk/support/cltkEvent.c | 38 ------------------------------------
1 file changed, 38 deletions(-)
delete mode 100644 otherlibs/labltk/support/cltkEvent.c
(limited to 'otherlibs/labltk/support/cltkEvent.c')
diff --git a/otherlibs/labltk/support/cltkEvent.c b/otherlibs/labltk/support/cltkEvent.c
deleted file mode 100644
index 92221b963..000000000
--- a/otherlibs/labltk/support/cltkEvent.c
+++ /dev/null
@@ -1,38 +0,0 @@
-#include <tcl.h>
-#include <tk.h>
-#include <caml/mlvalues.h>
-#include "camltk.h"
-
-value camltk_tk_mainloop() /* ML */
-{
- CheckInit();
-
- if (cltk_slave_mode)
- return Val_unit;
-
- if (!signal_events) {
- /* Initialise signal handling */
- signal_events = 1;
- Tk_CreateTimerHandler(100, invoke_pending_caml_signals, NULL);
- };
- Tk_MainLoop();
- return Val_unit;
-}
-
-/* Note: this HAS to be reported "as-is" in ML source */
-static int event_flag_table[] = {
- TK_DONT_WAIT, TK_X_EVENTS, TK_FILE_EVENTS, TK_TIMER_EVENTS, TK_IDLE_EVENTS,
- TK_ALL_EVENTS
-};
-
-value camltk_dooneevent(flags) /* ML */
- value flags;
-{
- int ret;
-
- CheckInit();
-
- ret = Tk_DoOneEvent(convert_flag_list(flags, event_flag_table));
- return Val_int(ret);
-}
-
--
cgit v1.2.3-70-g09d2