;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtk.lisp,v 1.62 2006/04/26 12:33:52 espen Exp $
+;; $Id: gtk.lisp,v 1.64 2006/06/30 10:57:21 espen Exp $
(in-package "GTK")
(format nil "Gtk+ v~A.~A.~A" major minor micro))))
(defun clg-version ()
- "clg 0.93pre")
+ "clg 0.93")
;;;; Initalization
(gdk:with-global-lock (main)))
:name "gtk event loop")))
-#+sbcl
-(defun clg-init-with-threading (&optional display)
- "Initializes the system and starts the event handling"
- (unless (gdk:display-get-default)
- (gdk:gdk-init)
- (gdk:threads-set-lock-functions)
- (unless (gtk-init)
- (error "Initialization of GTK+ failed."))
- (sb-thread:make-thread
- #'(lambda ()
- (gdk:display-open display)
- (gdk:with-global-lock (main)))
- :name "gtk event loop")))
-
;;; Generic functions