method private tags_of_selected_file selection () =
match selection with
[] -> ()
| file :: _ ->
let f () =
let filename = file.Ocvs_types.cvs_file in
let tags_revs = cvs#cvs_tags_file filename in
Ocvs_list.display_string_list_list
~width: 300 ~height: 400
(M.tags_of filename)
[ M.tag ; M.revision ]
(List.map (fun (t,r) -> [t ; r]) tags_revs)
in
handle_error f () ()