paths and iters

I believe there has been some carefree copy'n'paste in gtktree.lisp
that compromised a couple of functions:

RCS file: /cvsroot/clg/clg/gtk/gtktree.lisp,v
retrieving revision 1.32
diff -c -r1.32 gtktree.lisp
*** gtktree.lisp	22 Oct 2007 09:21:50 -0000	1.32
--- gtktree.lisp	21 Feb 2008 11:14:05 -0000
***************
*** 575,589 ****
  
  (defbinding %tree-selection-select-iter () nil
    (tree-selection tree-selection)
!   (tree-path tree-path))
  
  (defbinding %tree-selection-unselect-iter () nil
    (tree-selection tree-selection)
!   (tree-path tree-path))
  
  (defbinding %tree-selection-iter-is-selected () boolean
    (tree-selection tree-selection)
!   (tree-path tree-path))
  
  (defun tree-selection-select (selection row)
    (etypecase row
--- 575,589 ----
  
  (defbinding %tree-selection-select-iter () nil
    (tree-selection tree-selection)
!   (tree-iter tree-iter))
  
  (defbinding %tree-selection-unselect-iter () nil
    (tree-selection tree-selection)
!   (tree-iter tree-iter))
  
  (defbinding %tree-selection-iter-is-selected () boolean
    (tree-selection tree-selection)
!   (tree-iter tree-iter))
  
  (defun tree-selection-select (selection row)
    (etypecase row

-- 
walter pelissero
http://www.pelissero.de

-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/