`sig
val cast : 'a Gobject.obj -> Gtk.link_button Gtk.obj
module P : sig val uri : ([> `linkbutton ], string) Gobject.property end
val create : Gtk.link_button Gobject.param list -> Gtk.link_button Gtk.obj
external create : string -> [> `linkbutton ] Gtk.obj
= "ml_gtk_link_button_new"
external create_with_label : string -> string -> [> `linkbutton ] Gtk.obj
= "ml_gtk_link_button_new_with_label"
external set_uri_hook :
([> `linkbutton ] Gtk.obj -> string -> unit) -> unit
= "ml_gtk_link_button_set_uri_hook"
end`