external create2 : (Gui_event_adapter.t -> Gui_action_adapter.t -> bool) -> t
    = "gui_event_handler_create2"