method cvs_tags_of_file =
match self#selection with
[] -> ()
| file :: _ ->
try
let filename = (behav#cvs_info_of_t file).Ocvs_types.cvs_file in
let tags_revs = behav#cvs_tags_file filename in
display_string_list_list
~width: 300 ~height: 400
(Ocvs_messages.tags_of filename)
[ Ocvs_messages.tag ; Ocvs_messages.revision ]
(List.map (fun (t,r) -> [t ; r]) tags_revs)
with
Failure s ->
GToolbox.message_box Ocvs_messages.error s