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 () ()