method display_strings ci =
(Some (color_string_of_status ci.Ocvs_types.cvs_status),
[ Filename.basename ci.Ocvs_types.cvs_file ;
Ocvs_types.string_of_status ci.Ocvs_types.cvs_status ;
ci.Ocvs_types.cvs_work_rev ;
ci.Ocvs_types.cvs_rep_rev ;
ci.Ocvs_types.cvs_date_string ;
]
)