let set_window w = window := w