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

[pdenno]

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

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

--- /project/cells-gtk/cvsroot/root/cells-gtk/dialogs.lisp	2005/02/26 22:24:27	1.5
+++ /project/cells-gtk/cvsroot/root/cells-gtk/dialogs.lisp	2006/02/16 18:12:54	1.6
@@ -29,7 +29,7 @@
   (markup)
   ()
   :position :mouse
-  :new-args (c? (list c-null
+  :new-args (c? (list +c-null+
 		      2
 		      (ecase (message-type self)
 			(:info 0)
@@ -125,7 +125,7 @@
   ()
   :on-selection-changed nil
   :position :mouse
-  :new-args (c? (list (title self) c-null (action-id self)
+  :new-args (c? (list (title self) +c-null+ (action-id self)
 		      "gtk-cancel" -6 ;;response-cancel
 		      (format nil "gtk-~a"
 			      (string-downcase 
@@ -136,7 +136,7 @@
 					:apply
 					(action self))))))
 		      -5  ;;response-ok
-		      nil)))
+		      +c-null+)))
 
 (defmethod md-awaken :after ((self file-chooser-dialog))
   (let ((response (gtk-dialog-run (id self))))