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