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