method cvs_add_files ?(binary=false) files =
let ok, ko = Ocvs_commands.add_files ~binary: binary files in
(* Update the elements in data. *)
let _ =
try self#cvs_status_files ok
with _ -> ()
in
(ok, ko)