gtk/gtk.label.lisp

   1 (in-package :gtk)
   2
   3 (defcfun (%gtk-label-get-layout-offsets "gtk_label_get_layout_offsets") :void
   4   (label (g-object label))
   5   (x (:pointer :int))
   6   (y (:pointer :int)))
   7
   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))))
  12
  13 (defcfun (label-select-region "gtk_label_select_region") :void
  14   (label (g-object label))
  15   (start-offset :int)
  16   (end-offset :int))
  17
  18 (export 'label-select-region)
  19
  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)))
  24
  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)))))