method cvs_remove_selected_files =
match selection with
[] ->
()
| l ->
let files = List.map (fun t -> (behav#cvs_info_of_t t).Ocvs_types.cvs_file) l in
match GToolbox.question_box
~title: Ocvs_messages.remove_files
~buttons: [ Ocvs_messages.mOk ; Ocvs_messages.mCancel ]
(Ocvs_messages.confirm_remove_files files)
with
1 ->
(
let (ok, ko) = behav#cvs_remove_files files in
match ok with
[] ->
GToolbox.message_box Ocvs_messages.error
(Ocvs_messages.error_remove_files ko)
| _ ->
self#update behav#needs_cvs_status
)
| _ ->
()