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 ()