(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)))
(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)
(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)))