external set_type : t -> [< types] -> unit
      = "ml_gdk_event_set_type"