3 (defvar *link-button-uri-func* nil)
5 (defcallback link-button-uri-func-cb :void
6 ((button (g-object link-button)) (link (:string :free-from-foreign nil)) (user-data :pointer))
7 (declare (ignore user-data))
8 (funcall *link-button-uri-func* button link))
10 (defcallback link-button-uri-func-destroy-cb :void
12 (declare (ignore data))
13 (setf *link-button-uri-func* nil))
15 (defcfun gtk-link-button-set-uri-hook :void
18 (destroy-notify :pointer))
20 (defun (setf link-button-global-uri-hook) (new-value)
22 (gtk-link-button-set-uri-hook (callback link-button-uri-func-cb)
24 (callback link-button-uri-func-destroy-cb))
25 (gtk-link-button-set-uri-hook (null-pointer)
28 (setf *link-button-uri-func* new-value))
30 (export 'link-button-global-uri-hook)