method cvs_remove_files files =
      let ok, ko = Ocvs_commands.remove_files files in
      (* update the removed elements in data. *)
      let _ =
        try
          let date = Unix.time () in
          let l_cvs_info =
            List.map
              (fun f ->
                {
                  cvs_file = f ;
                  cvs_status = Locally_removed ;
                  cvs_rep_rev = "" ;
                  cvs_work_rev = "" ;
                  cvs_date_string = "" ;
                  cvs_date = date
                }
              )
              ok
          in
          List.iter (fun ci -> data#update_element (data#t_of_cvs_info ci)) l_cvs_info
        with _ -> ()
      in
      (ok, ko)