method cvs_log_file =
match selection with
[] ->
()
| f :: _ ->
try
let cvsi = behav#cvs_info_of_t f in
let log = behav#cvs_log_file cvsi.Ocvs_types.cvs_file in
display_log ~title: cvsi.Ocvs_types.cvs_file ~log ()
with
Failure s ->
GToolbox.message_box Ocvs_messages.error s