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 ;
[]