Added proper protection for multi threaded event handling

[clg] / examples / testdnd.lisp

diff --git a/examples/testdnd.lisp b/examples/testdnd.lisp
index 1d7c8162054f496c3776f94a1fcaa21efebb2edf..ff6702c0f2faa406befc1e05b61c02df80f932da 100644 (file)
--- a/examples/testdnd.lisp
+++ b/examples/testdnd.lisp
@@ -144,4 +144,4 @@ (defun create-test ()
    :child (create-layout 600 600)))
 
 (clg-init)
    :child (create-layout 600 600)))
 
 (clg-init)

-(create-test)
+(within-main-loop (create-test))