summaryrefslogtreecommitdiffstats
path: root/otherlibs/labltk/support/cltkTimer.c
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/labltk/support/cltkTimer.c')
-rw-r--r--otherlibs/labltk/support/cltkTimer.c30
1 files changed, 0 insertions, 30 deletions
diff --git a/otherlibs/labltk/support/cltkTimer.c b/otherlibs/labltk/support/cltkTimer.c
deleted file mode 100644
index 2b8ec0e1b..000000000
--- a/otherlibs/labltk/support/cltkTimer.c
+++ /dev/null
@@ -1,30 +0,0 @@
-#include <tcl.h>
-#include <tk.h>
-#include <caml/mlvalues.h>
-#include "camltk.h"
-
-
-/* Basically the same thing as FileProc */
-void TimerProc (clientdata)
- ClientData clientdata;
-{
- callback2(*handler_code,Val_long(clientdata),Val_int(0));
-}
-
-value camltk_add_timer(milli, cbid) /* ML */
- value milli;
- value cbid;
-{
- CheckInit();
- /* look at tkEvent.c , Tk_Token is an int */
- return (value)Tcl_CreateTimerHandler(Int_val(milli), TimerProc,
- (ClientData) (Long_val(cbid)));
-}
-
-value camltk_rem_timer(token) /* ML */
- value token;
-{
- Tcl_DeleteTimerHandler((Tcl_TimerToken) token);
- return Val_unit;
-}
-