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