gtk-tree-model-filter-set-visible-func problem

[Stanislas Pinte]

Hello guys,

Any chance that guile-gnome-platform might provide a binding for
GtkTreeModelFilter?

I tried the following code, but gtk-tree-model-filter-set-visible-func
poses a problem:

(use-modules (gnome gtk))

(define model (gtk-list-store-new (list gtype:gchararray
                    gtype:gchararray
                    gtype:gchararray
                    gtype:gchararray
                    gtype:gchararray
                    gtype:gchararray)))
(define filter-model (filter-new model '()))

;; populate a bit the model

(define (append model values)
  (let ((iter (gtk-list-store-append model)))
    (for-each (lambda (index)
        (begin
          ;(simple-format #t "set-value index: ~A value ~A ~%" index
(list-ref values index))
          (set-value model iter index (list-ref values index))))
    '(0 1 2 3 4 5))))

(append model '("jean" "dupont" "18a rue de thy" "1470" "genappe"
"067442974"))
(append model '("herve" "matisse" "19a rue de thy" "1470" "genappe"
"027719843"))
(append model '("hubert" "andre" "12 av des ombrages" "1200" "bruxelles"
"0477565678"))

(gtk-tree-model-filter-set-visible-func filter-model
                    (lambda (iter)
                      #t)
                    #f
                    #f)

test-tree-model-filter.scm:27:1: In procedure
gtk-tree-model-filter-set-visible-func in expression
(gtk-tree-model-filter-set-visible-func filter-model (lambda # #t) ...):
test-tree-model-filter.scm:27:1: Wrong type argument in position 2:
#<procedure #f (iter)>
      
Thanks in advance for any help,

Stan.