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