X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.combo-box.lisp;h=c4037506e31ec1964a3766942e8e126af989b287;hb=1f9c939a43d645eaf55e4d375f6b1b609dd1c5bd;hp=36ae592f0d9821dc4885b4696d25896eb4cda1db;hpb=ca504defb1fba77e974b84ba6df2468aa59242de;p=cl-gtk2.git

diff --git a/gtk/gtk.combo-box.lisp b/gtk/gtk.combo-box.lisp
index 36ae592..c403750 100644
--- a/gtk/gtk.combo-box.lisp
+++ b/gtk/gtk.combo-box.lisp
@@ -1,14 +1,13 @@
 (in-package :gtk)
 
-(defcfun gtk-combobox-get-active-iter :boolean
+(defcfun gtk-combo-box-get-active-iter :boolean
   (combo-box g-object)
-  (iter (g-boxed-ref tree-iter)))
+  (iter (g-boxed-foreign tree-iter)))
 
-(defun combobox-get-active-iter (combo-box)
+(defun combo-box-get-active-iter (combo-box)
   (let ((i (make-instance 'tree-iter)))
-    (if (gtk-combobox-get-active-iter combo-box i)
-        i
-        (release i))))
+    (when (gtk-combo-box-get-active-iter combo-box i)
+      i)))
 
 (defcfun (combo-box-active-text "gtk_combo_box_get_active_text") (:string :free-from-foreign t)
   (combo-box g-object))
@@ -40,4 +39,6 @@
   (gtk-combo-box-set-row-separator-func combo-box
                                         (callback gtk-tree-view-row-separator-func-callback)
                                         (allocate-stable-pointer func)
-                                        (callback stable-pointer-free-destroy-notify-callback)))
\ No newline at end of file
+                                        (callback stable-pointer-free-destroy-notify-callback)))
+
+