From f61dc28ba2cc3f14e9f685f0e815252ce01acf44 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Fri, 22 Jan 2010 13:44:44 +0300 Subject: [PATCH] Conform to style --- gtk/gtk.tree-model-filter.lisp | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/gtk/gtk.tree-model-filter.lisp b/gtk/gtk.tree-model-filter.lisp index a75a85d..331d81b 100644 --- a/gtk/gtk.tree-model-filter.lisp +++ b/gtk/gtk.tree-model-filter.lisp @@ -3,10 +3,13 @@ (defcallback gtk-tree-model-filter-visible-func-callback :boolean ((tree-model g-object) (iter (g-boxed-foreign tree-iter)) (data :pointer)) (let ((fn (get-stable-pointer-value data))) - (funcall fn tree-model iter))) + (restart-case + (funcall fn tree-model iter) + (return-true () t) + (return-false () nil)))) (defcfun gtk-tree-model-filter-set-visible-func :void - (filter g-object) + (filter (g-object tree-model-filter)) (func :pointer) (data :pointer) (destroy-notify :pointer)) @@ -45,7 +48,7 @@ gboolean gtk_tree_model_filter_convert_child_iter_to_iter (GtkTreeModelFilt |# (defcfun gtk-tree-model-filter-convert-iter-to-child-iter :void - (filter g-object) + (filter (g-object tree-model-filter)) (child-iter (g-boxed-foreign tree-iter)) (filter-iter (g-boxed-foreign tree-iter))) @@ -67,7 +70,7 @@ GtkTreePath *gtk_tree_model_filter_convert_path_to_child_path (GtkTreeModelFilt ;; extras (defcfun gtk-tree-model-filter-refilter :void - (filter g-object)) + (filter (g-object gtk-tree-model-filter))) (defun tree-model-filter-refilter (filter) (gtk-tree-model-filter-refilter filter)) @@ -75,10 +78,9 @@ GtkTreePath *gtk_tree_model_filter_convert_path_to_child_path (GtkTreeModelFilt (export 'tree-model-filter-refilter) (defcfun gtk-tree-model-filter-clear-cache :void - (filter g-object)) + (filter (g-object gtk-tree-model-filter))) (defun tree-model-filter-clear-cache (filter) (gtk-tree-model-filter-clear-cache filter)) (export 'tree-model-filter-clear-cache) - -- 1.7.10.4