From d84a621183073cc7ca23bbca5ec34371ae51f74e Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Wed, 18 Mar 2009 13:09:02 +0300 Subject: [PATCH] fix typos in function names --- gtk/gtk.combo-box.lisp | 6 +++--- gtk/gtk.icon-view.lisp | 2 +- gtk/gtk.layout-containers.lisp | 4 ++-- gtk/gtk.menu.lisp | 2 +- gtk/gtk.paned.lisp | 10 +++++----- gtk/gtk.size-group.lisp | 2 +- gtk/gtk.tree-selection.lisp | 8 ++++---- gtk/gtk.tree-view.lisp | 4 ++-- gtk/gtk.ui-manager.lisp | 10 +++++----- 9 files changed, 24 insertions(+), 24 deletions(-) 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)))) diff --git a/gtk/gtk.icon-view.lisp b/gtk/gtk.icon-view.lisp index 560b433..eecd177 100644 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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 --- 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) -- 1.7.10.4