Hi, using the new cells-gtk3 I ran into two issues within init-gtk:
1. If libcellsgtk is not used (gtk-init...) never seems to be called. 2. Also if used in a single threading environment (like clisp) (g-thread-init...) and (gdk-threads-init) do get called which results in an error. The attached patch tries to fix both. Btw, clisp gives several continuable errors complaining #<STANDARD-GENERIC-FUNCTION SLOT-VALUE-OBSERVE>: CALL-NEXT-METHOD is invalid within PROGN methods but runs fine upon continuation. Backtrace attached. Kind regards, thanks you for all the work, Ingo. -- Ingo Bormuth, voicebox & fax: +49-(0)-12125-10226517 public key 86326EC9, http://ibormuth.efil.de/contact _____________________________________________________________________ Unbegrenzter Speicherplatz für Ihr E-Mail Postfach? Jetzt aktivieren! http://freemail.web.de/club/landingpage.htm/?mc=025555
cells-gtk-on-clisp.error
Description: Binary data
diff --git a/cells-gtk/gtk-app.lisp b/cells-gtk/gtk-app.lisp
index 026765c..56cee43 100644
--- a/cells-gtk/gtk-app.lisp
+++ b/cells-gtk/gtk-app.lisp
@@ -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)
_______________________________________________ cells-gtk-devel site list cells-gtk-devel@common-lisp.net http://common-lisp.net/mailman/listinfo/cells-gtk-devel
