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

[Peter Denno]

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

Modified Files:
	gtk-app.lisp 
Log Message:
better error message
Date: Sun Feb 13 18:25:14 2005
Author: pdenno

Index: root/cells-gtk/gtk-app.lisp
diff -u root/cells-gtk/gtk-app.lisp:1.10 root/cells-gtk/gtk-app.lisp:1.11
--- root/cells-gtk/gtk-app.lisp:1.10	Sat Feb 12 20:11:55 2005
+++ root/cells-gtk/gtk-app.lisp	Sun Feb 13 18:25:13 2005
@@ -90,7 +90,7 @@
                     do (gtk-main-iteration-do nil))
                  (process-wait-with-timeout .01 "GTK event loop waiting"))
               (gtk-cells-error (err)
-                (show-message (format nil "Error: ~a" err) :message-type :error)
+                (show-message (format nil "Cells-GTK Error: ~a" err) :message-type :error)
                 (process-wait "Acknowledge error" #'gtk-events-pending)
                 (loop while (gtk-events-pending) do (gtk-main-iteration-do nil))
                 (throw 'try-again nil))))))))