fix typos in function names

diff --git a/gtk/gtk.combo-box.lisp b/gtk/gtk.combo-box.lisp
index 36ae592..754c52b 100644 (file)
--- 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))))
 

diff --git a/gtk/gtk.icon-view.lisp b/gtk/gtk.icon-view.lisp
index 560b433..eecd177 100644 (file)
--- a/gtk/gtk.icon-view.lisp
+++ b/gtk/gtk.icon-view.lisp
@@ -91,7 +91,7 @@
 
 (export 'icon-view-unselect-path)
 
-(defcfun (icon-view-path-selected-p "gtk_icon_view_is_path_selected") :boolean
+(defcfun (icon-view-path-selected-p "gtk_icon_view_path_is_selected") :boolean
   (icon-view g-object)
   (path (g-boxed-ref tree-path)))
 

diff --git a/gtk/gtk.layout-containers.lisp b/gtk/gtk.layout-containers.lisp
index 31b4771..f3e5d7f 100644 (file)
--- a/gtk/gtk.layout-containers.lisp
+++ b/gtk/gtk.layout-containers.lisp
@@ -129,7 +129,7 @@
 
 (export 'notebook-tab-label-widget)
 
-(defcfun gtk-notebook-set-menu-label-widget :void
+(defcfun (gtk-notebook-set-menu-label-widget "gtk_notebook_set_menu_label") :void
   (notebook g-object)
   (child g-object)
   (menu-label g-object))
@@ -138,7 +138,7 @@
   (gtk-notebook-set-menu-label-widget notebook child new-value)
   new-value)
 
-(defcfun gtk-notebook-set-tab-label-widget :void
+(defcfun (gtk-notebook-set-tab-label-widget "gtk_notebook_set_tab_label") :void
   (notebook g-object)
   (child g-object)
   (tab-label g-object))

diff --git a/gtk/gtk.menu.lisp b/gtk/gtk.menu.lisp
index ce03144..5c3df95 100644 (file)
--- a/gtk/gtk.menu.lisp
+++ b/gtk/gtk.menu.lisp
@@ -134,7 +134,7 @@
 
 (export 'toolbar-insert)
 
-(defcfun (toolbar-item-index "gtk_toolbar_item_index") :int
+(defcfun (toolbar-item-index "gtk_toolbar_get_item_index") :int
   (toolbar g-object)
   (item g-object))
 

diff --git a/gtk/gtk.paned.lisp b/gtk/gtk.paned.lisp
index 5cec6db..54fd9e9 100644 (file)
--- a/gtk/gtk.paned.lisp
+++ b/gtk/gtk.paned.lisp
@@ -1,24 +1,24 @@
 (in-package :gtk)
 
-(defcfun gtk-paned-pack-1 :void
+(defcfun gtk-paned-pack1 :void
   (paned g-object)
   (child g-object)
   (resize :boolean)
   (shrink :boolean))
 
 (defun paned-pack-1 (paned child &key (resize nil) (shrink t))
-  (gtk-paned-pack-1 paned child resize shrink))
+  (gtk-paned-pack1 paned child resize shrink))
 
-(export 'panged-pack-1)
+(export 'paned-pack-1)
 
-(defcfun gtk-paned-pack-2 :void
+(defcfun gtk-paned-pack2 :void
   (paned g-object)
   (child g-object)
   (resize :boolean)
   (shrink :boolean))
 
 (defun paned-pack-2 (paned child &key (resize t) (shrink t))
-  (gtk-paned-pack-2 paned child resize shrink))
+  (gtk-paned-pack2 paned child resize shrink))
 
 (export 'paned-pack-2)
 

diff --git a/gtk/gtk.size-group.lisp b/gtk/gtk.size-group.lisp
index 13043e6..5ee629f 100644 (file)
--- a/gtk/gtk.size-group.lisp
+++ b/gtk/gtk.size-group.lisp
@@ -12,7 +12,7 @@
 
 (export 'size-group-remove-widget)
 
-(defcfun (size-group-widgets "gtk_size_group_widgets") (gslist g-object :free-from-foreign nil)
+(defcfun (size-group-widgets "gtk_size_group_get_widgets") (gslist g-object :free-from-foreign nil)
   (size-group g-object))
 
 (export 'size-group-widgets)
\ No newline at end of file

diff --git a/gtk/gtk.tree-selection.lisp b/gtk/gtk.tree-selection.lisp
index 9c2be62..1eab232 100644 (file)
--- 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)
 

diff --git a/gtk/gtk.tree-view.lisp b/gtk/gtk.tree-view.lisp
index 487ddb2..dedd435 100644 (file)
--- a/gtk/gtk.tree-view.lisp
+++ b/gtk/gtk.tree-view.lisp
@@ -30,7 +30,7 @@
 
 (export 'tree-view-get-column)
 
-(defcfun (tree-view-columns "gtk_tree_view_columns") (glist g-object)
+(defcfun (tree-view-columns "gtk_tree_view_get_columns") (glist g-object)
   (tree-view g-object))
 
 (export 'tree-view-columns)
@@ -407,7 +407,7 @@
                                             (callback stable-pointer-free-destroy-notify-callback))
       (gtk-tree-view-set-row-separator-func tree-view (null-pointer) (null-pointer) (null-pointer))))
 
-(defcfun (tree-view-rubber-banding-active "gtk_tree_view_get_rubber_banding_active") :boolean
+(defcfun (tree-view-rubber-banding-active "gtk_tree_view_is_rubber_banding_active") :boolean
   (tree-view g-object))
 
 (export 'tree-view-rubber-banding-active)

diff --git a/gtk/gtk.ui-manager.lisp b/gtk/gtk.ui-manager.lisp
index d7af264..99e2348 100644 (file)
--- a/gtk/gtk.ui-manager.lisp
+++ b/gtk/gtk.ui-manager.lisp
@@ -92,7 +92,7 @@
 
 (export 'action-group-action)
 
-(defcfun (action-group-actions "gtk_action_group_actions") (glist g-object :free-from-foreign t)
+(defcfun (action-group-actions "gtk_action_group_list_actions") (glist g-object :free-from-foreign t)
   (action-group g-object))
 
 (export 'action-group-actions)
@@ -107,11 +107,11 @@
 
 (export 'action-group-add-action)
 
-(defcfun (action-remove-action "gtk_action_remove_action") :void
+(defcfun (action-group-remove-action "gtk_action_group_remove_action") :void
   (action-group g-object)
   (action g-object))
 
-(export 'action-remove-action)
+(export 'action-group-remove-action)
 
 (defcallback gtk-translate-func-callback (:string :free-to-foreign nil :free-from-foreign nil)
     ((path (:string :free-from-foreign nil)) (data :pointer))
@@ -158,12 +158,12 @@
 
 (export 'action-create-icon)
 
-(defcfun (action-create-menu-item "gtk_action_create_menu-item") g-object
+(defcfun (action-create-menu-item "gtk_action_create_menu_item") g-object
   (action g-object))
 
 (export 'action-create-menu-item)
 
-(defcfun (action-create-tool-item "gtk_action_create_tool-item") g-object
+(defcfun (action-create-tool-item "gtk_action_create_tool_item") g-object
   (action g-object))
 
 (export 'action-create-tool-item)