external queue_draw : [>`widget] obj -> unit = "ml_gtk_widget_queue_draw"