From 64cc0a46c3dd2bce1b3ea0158e1dc0c35750d0b5 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 13 Jun 2009 00:29:08 +0400 Subject: [PATCH] In gtk:ensure-gtk-main restart gtk thread if it is finished --- gtk/gtk.main_loop_events.lisp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/gtk/gtk.main_loop_events.lisp b/gtk/gtk.main_loop_events.lisp index e1756da..660bde8 100644 --- a/gtk/gtk.main_loop_events.lisp +++ b/gtk/gtk.main_loop_events.lisp @@ -32,6 +32,8 @@ #+thread-support (defun ensure-gtk-main () + (when (and *main-thread* (not (bt:thread-alive-p *main-thread*))) + (setf *main-thread* nil)) (unless *main-thread* (setf *main-thread* (bt:make-thread (lambda () (gtk:gtk-main)) :name "cl-gtk2 main thread")))) -- 1.7.10.4