finish tree-path and tree-row-reference bindings

[cl-gtk2.git] / gtk / gtk.label.lisp

diff --git a/gtk/gtk.label.lisp b/gtk/gtk.label.lisp
index c5d738a..bd84e4c 100644 (file)
--- a/gtk/gtk.label.lisp
+++ b/gtk/gtk.label.lisp
@@ -1,16 +1,14 @@
 (in-package :gtk)
 
-(defcfun gtk-label-get-layout-offsets :void
+(defcfun (%gtk-label-get-layout-offsets "gtk_label_get_layout_offsets") :void
   (label (g-object label))
   (x (:pointer :int))
   (y (:pointer :int)))
 
-(defun label-layout-offsets (label)
+(defun gtk-label-get-layout-offsets (label)
   (with-foreign-objects ((x :int) (y :int))
-    (gtk-label-get-layout-offsets label x y)
-    (values (mem-ref x :int) (mem-ref y :int))))
-
-(export 'label-layout-offsets)
+    (%gtk-label-get-layout-offsets label x y)
+    (list (mem-ref x :int) (mem-ref y :int))))
 
 (defcfun (label-select-region "gtk_label_select_region") :void
   (label (g-object label))
@@ -19,7 +17,12 @@
 
 (export 'label-select-region)
 
-(defcfun (label-layout "gtk_label_get_layout") g-object ;(g-object pango-layout)
-  (label (g-object label)))
+(defcfun (%gtk-label-get-selection-bounds "gtk_label_get_selection_bounds") :boolean
+  (label (g-object label))
+  (start (:pointer :int))
+  (end (:pointer :int)))
 
-(export 'label-layout)
\ No newline at end of file
+(defun gtk-label-get-selection-bounds (label)
+  (with-foreign-objects ((start :int) (end :int))
+    (when (%gtk-label-get-selection-bounds label start end)
+      (list (mem-ref start :int) (mem-ref end :int)))))