external set_text : [>`widget] obj -> string -> unit
      = "ml_gtk_widget_set_tooltip_text"