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