otherlibs/labltk/support/cltkTimer.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

#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;
}