method private remove_selected_files selection () =
      let files = List.map (fun t -> t.Ocvs_types.cvs_file) selection in
       let f () =
         (* ask for confirmation *)
         match GToolbox.question_box
             ~title: M.remove_files
             ~buttons: [ M.ok ; M.cancel ]
             (M.confirm_remove_files files)
         with
           1 ->
             (
              let (ok, ko) = cvs#cvs_remove_files files in
              match ko with
              | [] -> ()
              |        _ :: _ ->
                  GToolbox.message_box M.error
                    (M.error_remove_files ko)
             );
             f_update ()
         | _ ->
             ()
       in
       handle_error f () ()