external copy : ([< event_type] as 'a) event -> 'a event
    = "ml_gdk_event_copy"