From: espen <espen>
Date: Tue, 19 Jun 2007 11:50:55 +0000 (+0000)
Subject: Added proper protection for multi threaded event handling
X-Git-Url: https://git.distorted.org.uk/~mdw/clg/commitdiff_plain/ddcb3b7d09a32412bb4c9a63f4eb8e2734b882d8

Added proper protection for multi threaded event handling
---

diff --git a/examples/testcairo.lisp b/examples/testcairo.lisp
index f7b6b71..9768b90 100644
--- a/examples/testcairo.lisp
+++ b/examples/testcairo.lisp
@@ -540,7 +540,6 @@
 
 
 (clg-init)
-#?(pkg-config:pkg-exists-p "librsvg-2.0" :atleast-version "2.13.93")
 (rsvg:init)
 
 ;; We need to turn off floating point exceptions, because Cairo is
@@ -549,4 +548,4 @@
 #+sbcl(sb-int:set-floating-point-modes :traps nil) 
 #+cmu(ext:set-floating-point-modes :traps nil)
 
-(create-tests)
+(within-main-loop (create-tests))
diff --git a/examples/testdnd.lisp b/examples/testdnd.lisp
index 1d7c816..ff6702c 100644
--- a/examples/testdnd.lisp
+++ b/examples/testdnd.lisp
@@ -144,4 +144,4 @@
    :child (create-layout 600 600)))
 
 (clg-init)
-(create-test)
+(within-main-loop (create-test))