method ask_open_file =
let dir =
match active_view with
None -> Sys.getcwd ()
| Some v -> Filename.dirname v#filename
in
Ed_misc.select_file minibuffer
~title: "Open file" (Glib.Convert.filename_to_utf8 (dir^"/"))
(fun s -> Cam_commands.eval_command (Printf.sprintf "open_file %s" (Filename.quote s)))