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