X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.tree-model-filter.lisp;h=d2af6534992695ace5228a201e043d06527e259b;hb=88cb085461bbe845749f2b4f9bc840e136160ffc;hp=d026bc4b134042895b6dcd54692507d56695c31e;hpb=161c5d7cd6c9af1b648b27897295eef6e7908b51;p=cl-gtk2.git

diff --git a/gtk/gtk.tree-model-filter.lisp b/gtk/gtk.tree-model-filter.lisp
index d026bc4..d2af653 100644
--- a/gtk/gtk.tree-model-filter.lisp
+++ b/gtk/gtk.tree-model-filter.lisp
@@ -39,13 +39,10 @@ void          gtk_tree_model_filter_set_modify_func            (GtkTreeModelFilt
                                                                 GDestroyNotify                destroy);
 |#
 
-(defcfun gtk-tree-model-filter-set-visible-column :void
+(defcfun (tree-model-filter-set-visible-column "gtk_tree_model_filter_set_visible_column") :void
   (filter (g-object tree-model-filter))
   (column :int))
 
-(defun tree-model-filter-set-visible-column (filter column)
-  (gtk-tree-model-filter-set-visible-column filter column))
-
 (export 'tree-model-filter-set-visible-column)
 
 ;; conversion
@@ -74,38 +71,26 @@ void          gtk_tree_model_filter_set_modify_func            (GtkTreeModelFilt
 
 (export 'tree-model-filter-convert-iter-to-child-iter)
 
-(defcfun gtk-tree-model-filter-convert-child-path-to-path (g-boxed-foreign tree-path :return)
+(defcfun (tree-model-filter-convert-child-path-to-path "gtk_tree_model_filter_convert_child_path_to_path") (g-boxed-foreign tree-path :return)
   (filter (g-object tree-model-sort))
   (child-path (g-boxed-foreign tree-path)))
 
-(defun tree-model-filter-convert-child-path-to-path (filter child-path)
-  (gtk-tree-model-filter-convert-child-path-to-path))
-
 (export 'tree-model-filter-convert-child-path-to-path)
 
-(defcfun gtk-tree-model-filter-convert-path-to-child-path (g-boxed-foreign tree-path :return)
+(defcfun (tree-model-filter-convert-path-to-child-path "gtk_tree_model_filter_convert_path_to_child_path") (g-boxed-foreign tree-path :return)
   (filter (g-object tree-model-sort))
   (filter-path (g-boxed-foreign tree-path)))
 
-(defun tree-model-filter-convert-path-to-child-path (filter child-path)
-  (gtk-tree-model-filter-convert-path-to-child-path))
-
 (export 'tree-model-filter-convert-path-to-child-path)
 
 ;; extras
 
-(defcfun gtk-tree-model-filter-refilter :void
+(defcfun (tree-model-filter-refilter "gtk_tree_model_filter_refilter") :void
   (filter (g-object tree-model-filter)))
 
-(defun tree-model-filter-refilter (filter)
-  (gtk-tree-model-filter-refilter filter))
-
 (export 'tree-model-filter-refilter)
 
-(defcfun gtk-tree-model-filter-clear-cache :void
+(defcfun (tree-model-filter-clear-cache "gtk_tree_model_filter_clear_cache") :void
   (filter (g-object tree-model-filter)))
 
-(defun tree-model-filter-clear-cache (filter)
-  (gtk-tree-model-filter-clear-cache filter))
-
 (export 'tree-model-filter-clear-cache)