3 (defcfun (%gtk-label-get-layout-offsets "gtk_label_get_layout_offsets") :void
4 (label (g-object label))
8 (defun gtk-label-get-layout-offsets (label)
9 (with-foreign-objects ((x :int) (y :int))
10 (gtk-label-get-layout-offsets label x y)
11 (list (mem-ref x :int) (mem-ref y :int))))
13 (defcfun (label-select-region "gtk_label_select_region") :void
14 (label (g-object label))
18 (export 'label-select-region)
20 (defcfun (%gtk-label-get-selection-bounds "gtk_label_get_selection_bounds") :boolean
21 (label (g-object label))
22 (start (:pointer :int))
23 (end (:pointer :int)))
25 (defun gtk-label-get-selection-bounds (label)
26 (with-foreign-objects ((start :int) (end :int))
27 (when (%gtk-label-get-selection-bounds label start end)
28 (list (mem-ref start :int) (mem-ref end :int)))))