external get_window : t -> (float * float * float * float) = "gui_event_adapter_get_window"