external get_text : [>`widget] obj -> string
      = "ml_gtk_widget_get_tooltip_text"