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

[Peter Denno]

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

Modified Files:
	widgets.lisp 
Log Message:
Better error reporting on assert in the def-widget/def-gtk macro. Thanks to Kenny Tilton and Fred Gilham.
Date: Sun May 29 23:15:51 2005
Author: pdenno

Index: root/cells-gtk/widgets.lisp
diff -u root/cells-gtk/widgets.lisp:1.12 root/cells-gtk/widgets.lisp:1.13
--- root/cells-gtk/widgets.lisp:1.12	Sun Mar  6 18:01:09 2005
+++ root/cells-gtk/widgets.lisp	Sun May 29 23:15:51 2005
@@ -182,7 +182,7 @@
                                 ,(intern (string signal-slot) :keyword)
                                 new-value)
                               (let ((cb (cdr (assoc ',signal-slot *widget-callbacks*))))
-                                (assert cb)
+                                (assert cb () "Callback ~a not defined in *widget-callbacks*" ',signal-slot)
                                 #+shhtk (trc nil "in def-c-output gtk-signal-connect pcb:"
                                   cb ',slot-name (id self))
                               (gtk-signal-connect (id self)