external get_type : 'a event -> 'a = "ml_GdkEventAny_type"