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