method create_no_window window res_name args =
let ref_f_update = ref (fun () -> ()) in
let f_update () = !ref_f_update () in
let lb = new cvs_files_behaviour f_update res_name in
let box = new Ocvs_list.box ~display_dir: false lb in
ref_f_update := (fun () -> box#display_dir ~force: true (Some res_name));
let v = new cvs_files_view (self#name) res_name lb box false in
(v, box#box#coerce)