`sig
external create : unit -> Gtk.tooltips Gtk.obj = "ml_gtk_tooltips_new"
external enable : [> `tooltips ] Gtk.obj -> unit = "ml_gtk_tooltips_enable"
external disable : [> `tooltips ] Gtk.obj -> unit
= "ml_gtk_tooltips_disable"
external set_delay : [> `tooltips ] Gtk.obj -> int -> unit
= "ml_gtk_tooltips_set_delay"
external set_tip :
[> `tooltips ] Gtk.obj ->
[> `widget ] Gtk.obj -> ?text:string -> ?privat:string -> unit
= "ml_gtk_tooltips_set_tip"
end`