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

[pdenno]

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

Modified Files:
	gtk-app.lisp 
Log Message:
trivial

--- /project/cells-gtk/cvsroot/root/cells-gtk/gtk-app.lisp	2006/02/16 18:15:14	1.16
+++ /project/cells-gtk/cvsroot/root/cells-gtk/gtk-app.lisp	2006/02/16 21:56:17	1.17
@@ -113,7 +113,7 @@
 	       (report-error-and-give-up (c) (error c))))
 	    ;; clean-up forms (takes down application).
 	    (not-to-be app) ; while (> (gtk-main-level) 0) do (gtk-main-quit) NG. Why?
-	    (loop for i from 0 to 99 do (gtk-main-quit))
+	    (loop for i from 0 to 30 do (gtk-main-quit))
 	    (loop while (gtk-events-pending) do (gtk-main-iteration-do nil)))))))
 
 ;;; Restarts