gtk/gtk.label.lisp

   1 (in-package :gtk)
   2
   3 (defcfun gtk-label-get-layout-offsets :void
   4   (label (g-object label))
   5   (x (:pointer :int))
   6   (y (:pointer :int)))
   7
   8 (defun label-layout-offsets (label)
   9   (with-foreign-objects ((x :int) (y :int))
  10     (gtk-label-get-layout-offsets label x y)
  11     (values (mem-ref x :int) (mem-ref y :int))))
  12
  13 (export 'label-layout-offsets)
  14
  15 (defcfun (label-select-region "gtk_label_select_region") :void
  16   (label (g-object label))
  17   (start-offset :int)
  18   (end-offset :int))
  19
  20 (export 'label-select-region)
  21
  22 (defcfun (label-layout "gtk_label_get_layout") g-object ;(g-object pango-layout)
  23   (label (g-object label)))
  24
  25 (export 'label-layout)