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