(************************************************************
   labltk_timer_test.ml	Created      : Tue Nov 25 01:59:50 2003
  			Last modified: Tue Nov 25 02:03:44 2003
  Compile: ocamlc -dtypes -I +labltk labltk.cma labltk_timer_test.ml -o labltk_timer_test #
  FTP Directory: sources/ocaml #
************************************************************)
(**

  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

*)
open Tk

let _ =
  let window = openTk () in
  let rec callback () = 
    print_endline "hello";
    Timer.set ~ms:2000 ~callback in
  Timer.set ~ms:2000 ~callback;
  mainLoop ()
;;