Remove labltk from the distribution (will be available as a third-party library).

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14077 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 0 insertions, 54 deletions

diff --git a/otherlibs/labltk/support/cltkEvent.c b/otherlibs/labltk/support/cltkEvent.c
deleted file mode 100644
index 4507cf694..000000000
--- a/otherlibs/labltk/support/cltkEvent.c
+++ /dev/null
@@ -1,54 +0,0 @@
-/***********************************************************************/
-/*                                                                     */
-/*                 MLTk, Tcl/Tk interface of OCaml                     */
-/*                                                                     */
-/*    Francois Rouaix, Francois Pessaux, Jun Furuse and Pierre Weis    */
-/*               projet Cristal, INRIA Rocquencourt                    */
-/*            Jacques Garrigue, Kyoto University RIMS                  */
-/*                                                                     */
-/*  Copyright 2002 Institut National de Recherche en Informatique et   */
-/*  en Automatique and Kyoto University.  All rights reserved.         */
-/*  This file is distributed under the terms of the GNU Library        */
-/*  General Public License, with the special exception on linking      */
-/*  described in file LICENSE found in the OCaml source tree.          */
-/*                                                                     */
-/***********************************************************************/
-
-/* $Id$ */
-
-#include <tcl.h>
-#include <tk.h>
-#include <mlvalues.h>
-#include <alloc.h>
-#include "camltk.h"
-
-CAMLprim value camltk_tk_mainloop(void)
-{
-  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
-};
-
-CAMLprim value camltk_dooneevent(value flags)
-{
-  int ret;
-
-  CheckInit();
-
-  ret = Tk_DoOneEvent(convert_flag_list(flags, event_flag_table));
-  return Val_int(ret);
-}