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))))))))