let main () =
  let _ = GMain.Main.init () in
  let canvas, select_init_env = create_gui () in
  if Array.length Sys.argv = 2 then
    open_file select_init_env Sys.argv.(1);
  GMain.Main.main ()