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