(************************************************************
   where_am_i.ml	Created      : Fri Mar  7 19:26:46 2003
  			Last modified: Fri Mar 07 19:31:25 2003
  Compile: ocamlc -I +labltk labltk.cma where_am_i.ml -o where_am_i #
  FTP Directory: sources/ocaml #
************************************************************)

open Tk

let _ =
  let window = openTk () in
  bind ~extend:false ~events:[`Leave]
    ~action:(fun e ->
      let geometry = Wm.geometry_get window in      
      print_endline ("I'm in " ^ geometry); flush stdout)
    window;
  mainLoop()