method private real_cvs_add_files binary () =
(* A VOIR : a changer quand on aura la sélection multiple
dans select_files *)
let add f =
let (ok, ko) = cvs#cvs_add_files ~binary: binary [f] in
match ko with
_ :: _ ->
GToolbox.message_box M.error (M.error_add_files ko)
| [] ->
()
in
match GToolbox.select_file ~dir: (ref dir) ~title: M.add_files () with
Some f -> add f; f_update ()
| None -> ()