Typo.

[cl-gtk2.git] / gtk / gtk.tree-model-filter.lisp

diff --git a/gtk/gtk.tree-model-filter.lisp b/gtk/gtk.tree-model-filter.lisp
index 331d81b..d2af653 100644 (file)
--- a/gtk/gtk.tree-model-filter.lisp
+++ b/gtk/gtk.tree-model-filter.lisp
@@ -37,15 +37,27 @@ void          gtk_tree_model_filter_set_modify_func            (GtkTreeModelFilt
                                                                 GtkTreeModelFilterModifyFunc  func,
                                                                 gpointer                      data,
                                                                 GDestroyNotify                destroy);
+|#
+
+(defcfun (tree-model-filter-set-visible-column "gtk_tree_model_filter_set_visible_column") :void
+  (filter (g-object tree-model-filter))
+  (column :int))
 
-void          gtk_tree_model_filter_set_visible_column         (GtkTreeModelFilter           *filter,
-                                                                gint                          column);
+(export 'tree-model-filter-set-visible-column)
 
-/* conversion */
-gboolean      gtk_tree_model_filter_convert_child_iter_to_iter (GtkTreeModelFilter           *filter,
-                                                                GtkTreeIter                  *filter_iter,
-                                                                GtkTreeIter                  *child_iter);
-|#
+;; conversion
+
+(defcfun gtk-tree-model-filter-convert-child-iter-to-iter :boolean
+  (filter (g-object tree-model-filter))
+  (filter-iter (g-boxed-foreign tree-iter))
+  (child-iter (g-boxed-foreign tree-iter)))
+
+(defun tree-model-filter-convert-child-iter-to-iter (filter iter)
+  (let ((filter-iter (make-instance 'tree-iter)))
+    (when (gtk-tree-model-filter-convert-child-iter-to-iter filter filter-iter iter)
+      filter-iter)))
+
+(export 'tree-model-filter-convert-child-iter-to-iter)
 
 (defcfun gtk-tree-model-filter-convert-iter-to-child-iter :void
   (filter (g-object tree-model-filter))
@@ -59,28 +71,26 @@ gboolean      gtk_tree_model_filter_convert_child_iter_to_iter (GtkTreeModelFilt
 
 (export 'tree-model-filter-convert-iter-to-child-iter)
 
-#|
-GtkTreePath  *gtk_tree_model_filter_convert_child_path_to_path (GtkTreeModelFilter           *filter,
-                                                                GtkTreePath                  *child_path);
+(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)))
 
-GtkTreePath  *gtk_tree_model_filter_convert_path_to_child_path (GtkTreeModelFilter           *filter,
-                                                                GtkTreePath                  *filter_path);
-|#
+(export 'tree-model-filter-convert-child-path-to-path)
 
-;; extras
+(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)))
 
-(defcfun gtk-tree-model-filter-refilter :void
-  (filter (g-object gtk-tree-model-filter)))
+(export 'tree-model-filter-convert-path-to-child-path)
 
-(defun tree-model-filter-refilter (filter)
-  (gtk-tree-model-filter-refilter filter))
+;; extras
 
-(export 'tree-model-filter-refilter)
+(defcfun (tree-model-filter-refilter "gtk_tree_model_filter_refilter") :void
+  (filter (g-object tree-model-filter)))
 
-(defcfun gtk-tree-model-filter-clear-cache :void
-  (filter (g-object gtk-tree-model-filter)))
+(export 'tree-model-filter-refilter)
 
-(defun tree-model-filter-clear-cache (filter)
-  (gtk-tree-model-filter-clear-cache filter))
+(defcfun (tree-model-filter-clear-cache "gtk_tree_model_filter_clear_cache") :void
+  (filter (g-object tree-model-filter)))
 
 (export 'tree-model-filter-clear-cache)