method private tag_selected_files selection () =
let files = List.map (fun t -> t.Ocvs_types.cvs_file) selection in
(* ask for tag *)
match GToolbox.input_string
M.tag_files
(M.enter_tag_for_files files)
with
| None -> ()
| Some tag ->
let f () =
let confirm s =
(GToolbox.question_box ~title: M.confirm
~buttons: [ M.yes ; M.no ]
s
) = 1
in
cvs#cvs_tag_files confirm tag files
in
handle_error f () ()