method cvs_tag_dir =
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
let tag_opt = GToolbox.input_string
Ocvs_messages.m_tag_dir
(Ocvs_messages.enter_tag_for_dir dir)
in
match tag_opt with
None -> ()
| Some tag ->
let confirm s =
(GToolbox.question_box
~title: Ocvs_messages.mConfirm
~buttons: [ Ocvs_messages.mYes ; Ocvs_messages.mNo ]
s) = 1
in
try behav#cvs_tag_dir confirm tag dir
with Failure s -> GToolbox.message_box Ocvs_messages.error s