+ (defun join-gtk-main ()
+ (when *main-thread*
+ (bt:join-thread *main-thread*)))
+
+ (defun leave-gtk-main ()
+ (bt:with-lock-held (*main-thread-lock*)
+ (decf *main-thread-level*)
+ (when (zerop *main-thread-level*)
+ (gtk-main-quit)))))
+
+#-thread-support
+(progn
+ (defun ensure-gtk-main ()
+ (gtk-main)
+ (values))
+
+ (defun leave-gtk-main ()
+ (gtk-main-quit))
+
+ (defun join-gtk-main ()))
+
+(export 'ensure-gtk-main)