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