[cells-gtk-cvs] CVS update: root/cells-gtk/conditions.lisp

[Peter Denno]

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 , at 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)
   ())