method cvs_remove_selected_files =
      match selection with
        [] ->
          ()
      |        l ->
          let files = List.map (fun t -> (behav#cvs_info_of_t t).Ocvs_types.cvs_file) l in
         (* ask for confirmation *)
          match GToolbox.question_box
              ~title: Ocvs_messages.remove_files
              ~buttons: [ Ocvs_messages.mOk ; Ocvs_messages.mCancel ]
              (Ocvs_messages.confirm_remove_files files)
          with
            1 ->
              (
               let (ok, ko) = behav#cvs_remove_files files in
               match ok with
                 [] ->
                   GToolbox.message_box Ocvs_messages.error
                     (Ocvs_messages.error_remove_files ko)
               | _ ->
                   self#update behav#needs_cvs_status
              )
          | _ ->
              ()