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)