From: Andrey Kutejko <andy128k@gmail.com>
Date: Tue, 22 Jun 2010 00:11:47 +0000 (+0300)
Subject: fixed tree-lisp-store and tree-view-column errors.
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-gtk2.git;a=commitdiff_plain;h=afaeabf9e77294a867a0c39a6e7b1cbc8667442a

fixed tree-lisp-store and tree-view-column errors.
---

diff --git a/gtk/gtk.tree-model.lisp b/gtk/gtk.tree-model.lisp
index 4b8f813..edbcbd1 100644
--- a/gtk/gtk.tree-model.lisp
+++ b/gtk/gtk.tree-model.lisp
@@ -547,10 +547,11 @@
   (gethash id (tree-lisp-store-id-map tree)))
 
 (defmethod tree-model-get-iter-impl ((store tree-lisp-store) iter path)
-  (let* ((node (get-node-by-path store path))
-         (node-idx (get-assigned-id store node)))
-    (setf (tree-iter-stamp iter) 0
-          (tree-iter-user-data iter) node-idx)))
+  (ignore-errors
+    (let* ((node (get-node-by-path store path))
+	   (node-idx (get-assigned-id store node)))
+      (setf (tree-iter-stamp iter) 0
+	    (tree-iter-user-data iter) node-idx))))
 
 (defun get-node-by-iter (tree iter)
   (get-node-by-id tree (tree-iter-user-data iter)))
diff --git a/gtk/gtk.tree-view-column.lisp b/gtk/gtk.tree-view-column.lisp
index da1e3a1..ca86c4c 100644
--- a/gtk/gtk.tree-view-column.lisp
+++ b/gtk/gtk.tree-view-column.lisp
@@ -48,7 +48,7 @@
   (free-stable-pointer data))
 
 (defcfun gtk-tree-view-column-set-cell-data-func :void
-  (tree-column (g-object tree-column))
+  (tree-column (g-object tree-view-column))
   (cell-renderer (g-object cell-renderer))
   (func :pointer)
   (func-data :pointer)
@@ -62,6 +62,8 @@
    (allocate-stable-pointer function)
    (callback gtk-tree-cell-data-func-destroy-cb)))
 
+(export 'tree-view-column-set-cell-data-function)
+
 (defcfun (tree-view-column-clear-attributes "gtk_tree_view_column_clear_attributes") :void
   (tree-column (g-object tree-column))
   (cell-renderer (g-object cell-renderer)))