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 -> ()