method update update_status =
wlist#freeze ();
selection <- [] ;
wlist#clear () ;
we_dir#set_text "";
let _ =
match dir with
None ->
elements <- []
| Some d ->
let _ =
if update_status then
try behav#cvs_status_dir d
with Failure s -> prerr_endline s
else
()
in
we_dir#set_text d;
elements <- self#sort_elements (behav#elements d) ;
(*
List.iter
(fun e ->
match snd (behav#display_strings e) with
file :: _ -> prerr_endline file
| [] -> prerr_endline "no file"
)
elements;
*)
List.iter
(fun t ->
let (color_opt, strings) = behav#display_strings t in
let _ = wlist#append strings in
match color_opt with
None -> ()
| Some c ->
let _ = wlist#set_row ~foreground: (`NAME c)
(wlist#rows -1)
in
()
)
elements;
GToolbox.autosize_clist wlist
in
wlist#thaw ()