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