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

Modified Files: conditions.lisp Log Message: New conditions for continuable errors, though the details of that are not resolved in the gtk main loop. Date: Sat Feb 26 23:22:06 2005 Author: pdenno

Index: root/cells-gtk/conditions.lisp diff -u root/cells-gtk/conditions.lisp:1.1 root/cells-gtk/conditions.lisp:1.2 --- root/cells-gtk/conditions.lisp:1.1 Sat Feb 12 15:43:27 2005 +++ root/cells-gtk/conditions.lisp Sat Feb 26 23:22:05 2005 @@ -21,7 +21,9 @@ (defmacro gtk-report-error (type string &body args) `(error ',type :format-string ,string :format-arguments (list ,@args)))

-(define-condition gtk-cells-error (error) +(define-condition gtk-continuable-error (condition) ()) + +(define-condition gtk-cells-error (gtk-continuable-error) ((format-string :initarg :format-string) (format-arguments :initarg :format-arguments)) (:report (lambda (err stream) @@ -29,5 +31,8 @@ (apply #'format stream format-string format-arguments)))))

(define-condition gtk-object-id-error (gtk-cells-error) + ()) + +(define-condition gtk-user-signals-quit (condition) ())