external set_uri_hook : ([>`linkbutton] obj -> string -> unit) -> unit = "ml_gtk_link_button_set_uri_hook"