(************************************************************
   test.ml		Created      : Mon Feb 25 23:41:07 2002
  			Last modified: Tue Feb 26 01:18:23 2002
  Compile: ocamlopt -c -I /usr/local/lib/ocaml/lablgtk test.ml; ocamlopt  -I /usr/local/lib/ocaml/lablgtk lablgtk.cmxa gtkInit.cmx test.cmx -o test #
************************************************************)
open GMain

let window = GWindow.window ~border_width: 10 ();;
let main () = 
  begin 
    window#show ();
    GMain.main ();
  end;;
let _ = Printexc.print main ();;