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