method create_no_window window res_name args =
      let gdir = new cvs_tree res_name in
      let v = new cvs_tree_view (self#name) res_name gdir false in
      (v, gdir#box#coerce)