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)