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