(gtk-init)
-(defcfun gtk-test-register-all-types :void)
-
-(gtk-test-register-all-types)
-
(defcfun gtk-events-pending :boolean)
(defcfun gtk-main :void)
#+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"))))