+ new_proof proof));
+ ignore (gui#main#openMenuItem#connect#activate (fun _ ->
+ match gui#chooseFile () with
+ | None -> ()
+ | Some f when is_proof_script f ->
+ gui#script#scriptTextView#buffer#set_text (input_file f)
+ | Some f ->
+ gui#console#echo_error (sprintf
+ "Don't know what to do with file: %s\nUnrecognized file format." f)))