From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 7 Nov 2009 20:21:16 +0000 (+0300)
Subject: Fix typos in GtkTreeModel
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=189a02521cbfc13465dc6c0c418cc6ce74d77d37;p=cl-gtk2.git

Fix typos in GtkTreeModel
---

diff --git a/gtk/gtk.tree-model.lisp b/gtk/gtk.tree-model.lisp
index 82c451f..4b8f813 100644
--- a/gtk/gtk.tree-model.lisp
+++ b/gtk/gtk.tree-model.lisp
@@ -84,7 +84,7 @@
   (tree-model-sort (g-object tree-model-sort))
   (child-path (g-boxed-foreign tree-path)))
 
-(export 'tree-model-sort-conver-child-path-to-path)
+(export 'tree-model-sort-convert-child-path-to-path)
 
 (defcfun gtk-tree-model-sort-convert-child-iter-to-iter :boolean
   (tree-model-sort (g-object tree-model-sort))
@@ -375,11 +375,11 @@
 (defcfun gtk-tree-model-iter-parent :boolean
   (tree-model g-object)
   (iter (g-boxed-foreign tree-iter))
-  (parent (g-boxed-foreign tree-iter)))
+  (child (g-boxed-foreign tree-iter)))
 
 (defun tree-model-iter-parent (tree-model iter)
   (let ((parent (make-tree-iter)))
-    (if (gtk-tree-model-iter-parent tree-model iter parent)
+    (if (gtk-tree-model-iter-parent tree-model parent iter)
         parent
         nil)))