diff options
| author | Xavier Clerc <xavier.clerc@inria.fr> | 2013-09-09 09:32:00 +0000 |
|---|---|---|
| committer | Xavier Clerc <xavier.clerc@inria.fr> | 2013-09-09 09:32:00 +0000 |
| commit | e82104a755463d481667650ba4f00de535048f39 (patch) | |
| tree | 054c7de9b2992be063de2dd22b56ee5993d5a374 /otherlibs/labltk/support/cltkTimer.c | |
| parent | 83ca86dd2309914aa458bc25fd265f0bcadaa337 (diff) | |
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
Diffstat (limited to 'otherlibs/labltk/support/cltkTimer.c')
| -rw-r--r-- | otherlibs/labltk/support/cltkTimer.c | 44 |
1 files changed, 0 insertions, 44 deletions
diff --git a/otherlibs/labltk/support/cltkTimer.c b/otherlibs/labltk/support/cltkTimer.c deleted file mode 100644 index afebef8e1..000000000 --- a/otherlibs/labltk/support/cltkTimer.c +++ /dev/null @@ -1,44 +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 <callback.h> -#include "camltk.h" - - -/* Basically the same thing as FileProc */ -void TimerProc (ClientData clientdata) -{ - callback2(*handler_code,Val_long(clientdata),Val_int(0)); -} - -CAMLprim value camltk_add_timer(value milli, value cbid) -{ - CheckInit(); - /* look at tkEvent.c , Tk_Token is an int */ - return (Val_int(Tcl_CreateTimerHandler(Int_val(milli), TimerProc, - (ClientData) (Long_val(cbid))))); -} - -CAMLprim value camltk_rem_timer(value token) -{ - Tcl_DeleteTimerHandler((Tcl_TimerToken) Long_val(token)); - return Val_unit; -} |