method cvs_revisions_file file =
      try
        let filename = (behav#cvs_info_of_t file).Ocvs_types.cvs_file in
        let revs = behav#cvs_revisions_file filename in
        revs
      with
        Failure s ->
          GToolbox.message_box Ocvs_messages.error s ;
          []