method private log_selected_file selection () =
      match selection with
        [] -> ()
      | f :: _ ->
          let f () =
            let cvsi = self#cvs_info_of_t f in
            let log = cvs#cvs_log_file cvsi.Ocvs_types.cvs_file in
            Ocvs_list.display_log ~title: cvsi.Ocvs_types.cvs_file ~log ()
          in
          handle_error f () ()