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

diff --git a/gtk/gtk.combo-box.lisp b/gtk/gtk.combo-box.lisp
index 36ae592..754c52b 100644
--- a/gtk/gtk.combo-box.lisp
+++ b/gtk/gtk.combo-box.lisp
@@ -1,12 +1,12 @@
 (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)))
 
-(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)
+    (if (gtk-combo-box-get-active-iter combo-box i)
         i
         (release i))))