external create : (Gui_event_adapter.t -> Gui_action_adapter.t ->
                       Object.t -> Node_visitor.t -> bool) -> t
    = "gui_event_handler_create4"