method private remove_selected_files selection () =
let files = List.map (fun t -> t.Ocvs_types.cvs_file) selection in
let f () =
(* ask for confirmation *)
match GToolbox.question_box
~title: M.remove_files
~buttons: [ M.ok ; M.cancel ]
(M.confirm_remove_files files)
with
1 ->
(
let (ok, ko) = cvs#cvs_remove_files files in
match ko with
| [] -> ()
| _ :: _ ->
GToolbox.message_box M.error
(M.error_remove_files ko)
);
f_update ()
| _ ->
()
in
handle_error f () ()