From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Tue, 12 Jan 2010 10:46:16 +0000 (+0300)
Subject: Wrap gtk-main in Gdk threads lock in unithreaded lisps too
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=ef70f68bf94aef914ade45fe951e554edb0e7279;p=cl-gtk2.git

Wrap gtk-main in Gdk threads lock in unithreaded lisps too
---

diff --git a/gtk/gtk.main_loop_events.lisp b/gtk/gtk.main_loop_events.lisp
index b26f147..6b5b9eb 100644
--- a/gtk/gtk.main_loop_events.lisp
+++ b/gtk/gtk.main_loop_events.lisp
@@ -21,14 +21,9 @@
 
 (defcfun (%gtk-main "gtk_main") :void)
 
-#+thread-support
 (defun gtk-main ()
   (with-gdk-threads-lock (%gtk-main)))
 
-#-thread-support
-(defun gtk-main ()
-  (%gtk-main))
-
 #+thread-support
 (defvar *main-thread* nil)