X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.tree-selection.lisp;h=1eab232adf200b92148933434b788e481562407f;hb=9af0a44db2b9491749a7936c782c3d7ff1b804a3;hp=9c2be6233e83a16c8eba2bb2c20acbab559a8452;hpb=51aa0c04d9522fa9c17555cc779036aa9703ef02;p=cl-gtk2.git

diff --git a/gtk/gtk.tree-selection.lisp b/gtk/gtk.tree-selection.lisp
index 9c2be62..1eab232 100644
--- a/gtk/gtk.tree-selection.lisp
+++ b/gtk/gtk.tree-selection.lisp
@@ -27,14 +27,14 @@
     (unless (null-pointer-p ptr)
       (get-stable-pointer-value ptr))))
 
-(defcfun gtk-tree-selection-selected :boolean
+(defcfun gtk-tree-selection-get-selected :boolean
   (selection g-object)
   (model :pointer)
   (iter (g-boxed-ref tree-iter)))
 
 (defun tree-selection-selected (tree-selection)
   (let ((iter (make-instance 'tree-iter)))
-    (if (gtk-tree-selection-selected tree-selection (null-pointer) iter)
+    (if (gtk-tree-selection-get-selected tree-selection (null-pointer) iter)
         iter
         (release iter))))
 
@@ -56,12 +56,12 @@
 
 (export 'map-tree-selection-rows)
 
-(defcfun gtk-tree-selection-selected-rows (glist (g-boxed-ref tree-path) :free-from-foreign t)
+(defcfun gtk-tree-selection-get-selected-rows (glist (g-boxed-ref tree-path) :free-from-foreign t)
   (selection g-object)
   (model :pointer))
 
 (defun tree-selection-selected-rows (tree-selection)
-  (gtk-tree-selection-selected-rows tree-selection (null-pointer)))
+  (gtk-tree-selection-get-selected-rows tree-selection (null-pointer)))
 
 (export 'tree-selection-selected-rows)