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

[pdenno]

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

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

--- /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp	2005/10/08 14:28:49	1.11
+++ /project/cells-gtk/cvsroot/root/cells-gtk/menus.lisp	2006/02/16 18:16:28	1.12
@@ -74,7 +74,7 @@
 	   (pfunc #'(lambda (x) (list (funcall user-print-fn x)))))
       (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
 				     '(:string :string) pfunc (children-fn self)))
       ;; Spec says iter must correspond to a path of depth one. But then there would be no point 
       ;; in set-active-iter.  Well, the spec seems to be wrong (or poorly worded).
@@ -162,7 +162,7 @@
    (label-widget :accessor label-widget :initarg :label-widget :initform (c-in nil)))
   (use-underline stock-id)
   (clicked)
-  :new-args (list c-null c-null))
+  :new-args (list +c-null+ +c-null+))
 
 (def-c-output icon-widget ((self tool-button))
   (when old-value
@@ -276,7 +276,7 @@
 		      (not-first-p (not (eql (first (kids (fm-parent self))) self))))		  
 		      (if (and in-group-p not-first-p)
 			  (list (id (first (kids (fm-parent self)))))			  
-			  (list c-null)))))
+			  (list +c-null+)))))
   
 (def-c-output .md-value ((self radio-menu-item))
   (when (and new-value (upper self menu-item))
@@ -291,7 +291,8 @@
   :new-tail (c? (when (stock self)
 		  '-from-stock))
   :new-args (c? (when (stock self)
-		  (list (string-downcase (format nil "gtk-~a" (stock self))) nil))))
+		  (list (string-downcase (format nil "gtk-~a" (stock self))) +c-null+))))
+
 
 (def-c-output image ((self image-menu-item))
   (when old-value