method private tag_dir dir () =
let f () =
let tag_opt = GToolbox.input_string
M.tag_dir
(M.enter_tag_for_dir dir)
in
match tag_opt with
None -> ()
| Some tag ->
let confirm s =
(GToolbox.question_box
~title: M.confirm
~buttons: [ M.yes ; M.no ]
s
) = 1
in
cvs#cvs_tag_dir confirm tag dir
in
handle_error f () ()