method init_col_display ~col_display ~complete ~renderer store =
let f (store:GTree.model) (iter:Gtk.tree_iter) =
let s = store#get ~row: iter ~column: complete in
let props =
if Sys.file_exists (Filename.concat s "CVS") then
[`WEIGHT `BOLD]
else
[`WEIGHT `NORMAL]
in
renderer#set_properties ((`TEXT (Filename.basename s)) :: props)
in
ignore (col_display#set_cell_data_func renderer f)