(************************************************************
   labltktest.ml	Created      : Fri Feb 21 22:48:03 2003
  			Last modified: Fri Feb 21 22:51:04 2003
  Compile: ocamlc.opt -I +labltk labltk.cma labltktest.ml -o labltktest #
  FTP Directory: sources/ocaml #
************************************************************)
(**
   とっても小さい labltk プログラム
  @author Takashi Masuyama <mamewo@dk9.so-net.ne.jp>

*)
open Tk

let _ =
  let widget = openTk () in
  mainLoop ()