external get_mouse : t -> (float * float * float * float) = "gui_event_adapter_get_mouse"