method cvs_status_dir dir =
try
let cvs_info_list = Ocvs_commands.status_dir dir in
List.iter (fun ci -> data#update_element (data#t_of_cvs_info ci)) cvs_info_list
with
CvsFailure s
| CvsPartFailure s ->
raise (Failure s)