From afaeabf9e77294a867a0c39a6e7b1cbc8667442a Mon Sep 17 00:00:00 2001 From: Andrey Kutejko Date: Tue, 22 Jun 2010 03:11:47 +0300 Subject: [PATCH] fixed tree-lisp-store and tree-view-column errors. --- gtk/gtk.tree-model.lisp | 9 +++++---- gtk/gtk.tree-view-column.lisp | 4 +++- 2 files changed, 8 insertions(+), 5 deletions(-) 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))) -- 1.7.10.4