diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2000-04-17 08:55:44 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2000-04-17 08:55:44 +0000 |
| commit | aec1de6aee0fa94368912d9cac6f95bad234ef8e (patch) | |
| tree | faa34e0c52dc3919f98a80421115d73e7c656eeb /otherlibs/labltk/support/cltkTimer.c | |
| parent | 790770e1cace566ab377e4371ce8d813dd37879c (diff) | |
Utiliser les includes de ../../../byterun, pas ceux de /usr/local/lib/ocaml/caml.
Ajout d'includes manquants. Ajout de prototypes sur toutes les fonctions.
Suppression de warnings du compilo C.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3098 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/labltk/support/cltkTimer.c')
| -rw-r--r-- | otherlibs/labltk/support/cltkTimer.c | 13 |
1 files changed, 5 insertions, 8 deletions
diff --git a/otherlibs/labltk/support/cltkTimer.c b/otherlibs/labltk/support/cltkTimer.c index 8de594314..a3d3d3cac 100644 --- a/otherlibs/labltk/support/cltkTimer.c +++ b/otherlibs/labltk/support/cltkTimer.c @@ -17,20 +17,18 @@ #include <tcl.h> #include <tk.h> -#include <caml/mlvalues.h> +#include <mlvalues.h> +#include <callback.h> #include "camltk.h" /* Basically the same thing as FileProc */ -void TimerProc (clientdata) - ClientData clientdata; +void TimerProc (ClientData clientdata) { callback2(*handler_code,Val_long(clientdata),Val_int(0)); } -value camltk_add_timer(milli, cbid) /* ML */ - value milli; - value cbid; +value camltk_add_timer(value milli, value cbid) /* ML */ { CheckInit(); /* look at tkEvent.c , Tk_Token is an int */ @@ -38,8 +36,7 @@ value camltk_add_timer(milli, cbid) /* ML */ (ClientData) (Int_val(cbid))))); } -value camltk_rem_timer(token) /* ML */ - value token; +value camltk_rem_timer(value token) /* ML */ { Tcl_DeleteTimerHandler((Tcl_TimerToken) Int_val(token)); return Val_unit; |