method private real_cvs_add_files binary =
      let start_dir =
        match selection with
          None ->
            (
             match behav#roots with
               [] -> Unix.getcwd ()
             | s :: _ -> s
            )
        | Some d -> d
      in
      (* A VOIR : a changer quand on aura la sélection multiple
         dans select_files *)

      let add f =
        let (ok, ko) = behav#cvs_add_files ~binary: binary [f] in
        match ok with
          [] ->
            GToolbox.message_box Ocvs_messages.error
              (Ocvs_messages.error_add_files ko)
        | _ ->
            ()
      in
      (
       match GToolbox.select_file
           ~dir: (ref start_dir)
           ~title: Ocvs_messages.add_files
           ()
       with
         Some f -> add f
       | None -> ()
      );
      let sel = view#selection in
      match sel#get_selected_rows with
        [] -> ()
      |        row :: _ ->
          let it = store#get_iter row in
          let dir = store#get ~row: it ~column: col_complete in
          self#unselect_dir dir;
          self#select_dir dir