(************************************************************
   gtk2_hello.ml	Created      : Sun Jun  5 03:09:15 2005
  			Last modified: Sun Jun 05 03:44:47 2005
  Compile: ocamlc -dtypes -o gtk2_hello -I +lablgtk2 -w -s lablgtk.cma gtkInit.cmo gtk2_hello.ml #
  FTP Directory: sources/ocaml #
************************************************************)
(**

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

*)

let _ = 
  let w = GtkWindow.Window.create ~kind:`TOPLEVEL [] in
  let l = GtkMisc.Label.create [] in
  GtkMisc.Label.set_text l "hello world";
  GtkBase.Container.add w l;
  GtkBase.Widget.show_all w;
  GtkMain.Main.main ()


(*
 * Local Variables:
 *  namazu-default-dir "/home/tak/.indexes/ocaml"
 * End:
 *)