external message_type : t -> atom = "ml_GdkEventClient_message_type"