From fcd0c63013cf4b42213836780b0aa056818cabf4 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Tue, 19 Jun 2007 11:50:55 +0000 Subject: [PATCH] Added proper protection for multi threaded event handling Organization: Straylight/Edgeware From: espen --- examples/testcairo.lisp | 3 +-- examples/testdnd.lisp | 2 +- 2 files changed, 2 insertions(+), 3 deletions(-) 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 @@ (defun create-tests () (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 @@ (rsvg:init) #+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 @@ (defun create-test () :child (create-layout 600 600))) (clg-init) -(create-test) +(within-main-loop (create-test)) -- [mdw]