Update of /project/cells/cvsroot/cells-gtk3/cells-gtk In directory clnet:/tmp/cvs-serv30171/cells-gtk

Modified Files: gtk-app.lisp Log Message: Ingo's non-threading patch.

--- /project/cells/cvsroot/cells-gtk3/cells-gtk/gtk-app.lisp 2008/05/19 10:18:32 1.6 +++ /project/cells/cvsroot/cells-gtk3/cells-gtk/gtk-app.lisp 2008/05/19 10:26:06 1.7 @@ -157,10 +157,12 @@ (when close-all-windows (gtk-main-quit)) (when #+libcellsgtk (= 0 (gtk-adds-g-thread-supported)) ; init only once - #-libcellsgtk threading-initialized + #-libcellsgtk (not threading-initialized) (with-trcs - (g-thread-init +c-null+) ; init threading - (gdk-threads-init) + #+cells-gtk-threads + (progn + (g-thread-init +c-null+) ; init threading + (gdk-threads-init)) (assert (gtk-init-check +c-null+ +c-null+)) (gtk-init +c-null+ +c-null+) #+cells-gtk-opengl (gl-init)