Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv7424/cells-gtk
Modified Files: cells-gtk.lisp Log Message: Trivial documentation Date: Sat Feb 26 23:21:07 2005 Author: pdenno
Index: root/cells-gtk/cells-gtk.lisp diff -u root/cells-gtk/cells-gtk.lisp:1.4 root/cells-gtk/cells-gtk.lisp:1.5 --- root/cells-gtk/cells-gtk.lisp:1.4 Sat Feb 12 15:47:00 2005 +++ root/cells-gtk/cells-gtk.lisp Sat Feb 26 23:21:07 2005 @@ -26,7 +26,7 @@
(defun gtk-tree-store-set-kids (model val-tree par-iter index column-types print-fn children-fn &optional path) (with-tree-iter (iter) - (gtk-ffi::gtk-tree-store-append model iter par-iter) + (gtk-ffi::gtk-tree-store-append model iter par-iter) ; sets iter (gtk-ffi::gtk-tree-store-set model iter column-types (append @@ -34,5 +34,5 @@ (list (format nil "(~{~d ~})" (reverse (cons index path)))))) (loop for sub-tree in (funcall children-fn val-tree) for pos from 0 do - (gtk-tree-store-set-kids model sub-tree iter + (gtk-tree-store-set-kids model sub-tree iter pos column-types print-fn children-fn (cons index path)))))