external get_visual : [>`widget] obj -> Gdk.visual
      = "ml_gtk_widget_get_visual"