method create 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 true in
      let w = Cam_view.create_view_window
          ~width: 500
          ~height: 500
          ~title: (Printf.sprintf "%s [%s]" res_name self#name)
          v
      in
      let _ = w#vbox#pack ~expand: true box#box#coerce in
      (v, w#window)