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