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

[pdenno]

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

Modified Files:
	conditions.lisp 
Log Message:
trivial

--- /project/cells-gtk/cvsroot/root/cells-gtk/conditions.lisp	2005/02/26 22:22:05	1.2
+++ /project/cells-gtk/cvsroot/root/cells-gtk/conditions.lisp	2006/02/16 18:12:15	1.3
@@ -21,18 +21,18 @@
 (defmacro gtk-report-error (type string &body args)
   `(error ',type :format-string ,string :format-arguments (list , at args)))
 
-(define-condition gtk-continuable-error (condition) ())
+(define-condition gtk-continuable-error (condition)
+  ((text :initarg :text :reader text)))
 
 (define-condition gtk-cells-error (gtk-continuable-error) 
-  ((format-string :initarg :format-string)
-   (format-arguments :initarg :format-arguments))
-  (:report (lambda (err stream)
-	     (with-slots (format-string format-arguments) err
-	       (apply #'format stream format-string format-arguments)))))
+  ((format-string :initarg :format-string :reader format-string)
+   (format-arguments :initarg :format-arguments :reader format-arguments))
+  (:report (lambda (c stream)
+	     (apply #'format stream (format-string c) (format-arguments c)))))
 
-(define-condition gtk-object-id-error (gtk-cells-error)
-  ())
+(define-condition gtk-object-id-error (gtk-cells-error) ())
 
-(define-condition gtk-user-signals-quit (condition)
-  ())
+(define-condition gtk-user-signals-quit (condition) ())
+
+(export '(gtk-user-signals-quit gtk-continuable-error gtk-report-error))