external set_tip : [>`tooltips] obj -> [>`widget] obj -> ?text:string -> ?privat:string -> unit = "ml_gtk_tooltips_set_tip"