[cells-gtk-cvs] CVS root/cells-gtk

[pdenno]

Update of /project/cells-gtk/cvsroot/root/cells-gtk
In directory common-lisp:/tmp/cvs-serv10784/root/cells-gtk

Modified Files:
	tree-view.lisp 
Log Message:
nil --> +c-null+

--- /project/cells-gtk/cvsroot/root/cells-gtk/tree-view.lisp	2006/02/11 03:38:02	1.13
+++ /project/cells-gtk/cvsroot/root/cells-gtk/tree-view.lisp	2006/02/16 18:18:02	1.14
@@ -96,7 +96,7 @@
   (let ((selection (gtk-tree-view-get-selection (id self)))
         (cb (cffi:get-callback 'tree-view-items-selector)))
     (setf (selected-items-cache self) nil)
-    (gtk-tree-selection-selected-foreach selection cb c-null)
+    (gtk-tree-selection-selected-foreach selection cb +c-null+)
     (if (equal (gtk-tree-selection-get-mode selection) 3) ;;multiple
       (copy-list (selected-items-cache self))
     (first (selected-items-cache self)))))
@@ -187,7 +187,7 @@
   (when new-value
     (loop for root in new-value
        for index from 0 do
-	 (gtk-tree-store-set-kids (id (tree-model self)) root c-null index
+	 (gtk-tree-store-set-kids (id (tree-model self)) root +c-null+ index
 				  (append (column-types self) (list :string)) 
 				  (print-fn self) (children-fn self)))
     (when (expand-all self)
@@ -235,7 +235,7 @@
                   (nth pos (column-types self))
                   (getf (column-render self) pos)))
               cb)
-            nil nil)
+            +c-null+ +c-null+)
           (gtk-tree-view-column-set-sort-column-id (id col) pos)
           (gtk-tree-view-insert-column (id self) (id col) pos))))