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

Modified Files: gtk-app.lisp Log Message: The wait loop approach that works for lispworks doesn't really work for cmucl (uses too much processor). Nor does simple process-wait with gtk-event-pending work, which is unfortunate. Date: Sat Feb 12 20:11:56 2005 Author: pdenno

Index: root/cells-gtk/gtk-app.lisp diff -u root/cells-gtk/gtk-app.lisp:1.9 root/cells-gtk/gtk-app.lisp:1.10 --- root/cells-gtk/gtk-app.lisp:1.9 Sat Feb 12 15:50:29 2005 +++ root/cells-gtk/gtk-app.lisp Sat Feb 12 20:11:55 2005 @@ -81,14 +81,14 @@

(when *gtk-debug* (trc nil "STARTING GTK-MAIN") (force-output)) - #+clisp(gtk-main) - #-clisp + #-lispworks(gtk-main) + #+lispworks (catch 'try-again (handler-case (loop (loop while (gtk-events-pending) do (gtk-main-iteration-do nil)) - (process-wait-with-timeout .01 "GTK event loop waiting" #'(lambda () t))) + (process-wait-with-timeout .01 "GTK event loop waiting")) (gtk-cells-error (err) (show-message (format nil "Error: ~a" err) :message-type :error) (process-wait "Acknowledge error" #'gtk-events-pending)