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

[phildebrandt]

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)