[cells-gtk-cvs] CVS update: root/cells-gtk/cells-gtk.lisp

[Peter Denno]

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)))))