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