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 ()