let main () =
ignore (GMain.Main.init ());
let file =
if Array.length Sys.argv >= 2 then
Sys.argv.(1)
else
(
prerr_endline (Printf.sprintf "Usage: %s <file>" Sys.argv.(0));
exit 1
)
in
let w = new Tdl_gui.file_window file in
ignore (w#main#connect#destroy ~callback:GMain.Main.quit) ;
w#main#show ();
GMain.Main.main ()