(************************************************************
   whatsballoon.ml	Created      : Thu Mar  6 17:05:03 2003
  			Last modified: Thu Mar 06 17:21:57 2003
  Compile: ocamlc -I +labltk labltk.cma jpflib.cma whatsballoon.ml -o whatsballoon #
  FTP Directory: sources/ocaml #
************************************************************)


let _ =
  let window = Tk.openTk () in
  let wait_time = 2000 in
  begin
    Balloon.init ();
    Tk.bind ~events:[`Enter] ~extend:false 
      ~action:(fun e -> Balloon.put ~on:window ~ms:wait_time "Hello Mr. Monkey")
      window;
    Tk.mainLoop ()
  end