From dc3ddae06d0fe207ef6702f29bbd1d5790b3f232 Mon Sep 17 00:00:00 2001 Message-Id: From: Mark Wooding Date: Tue, 19 Jun 2007 11:39:26 +0000 Subject: [PATCH] Added proper protection for multi threaded event handling Organization: Straylight/Edgeware From: espen --- hello-world.lisp | 33 +++++++++++++++++---------------- 1 file changed, 17 insertions(+), 16 deletions(-) diff --git a/hello-world.lisp b/hello-world.lisp index 2ce6269..9af70ab 100644 --- a/hello-world.lisp +++ b/hello-world.lisp @@ -1,18 +1,19 @@ (gtk:clg-init) -(make-instance 'gtk:window -; :type :toplevel - :title "Test" - :border-width 5 - :visible t :show-children t - :child (make-instance 'gtk:button - :label "Hello World!" - :signal (list 'clicked - #'(lambda () - (write-line "Hello World!")))) - :signal (list 'delete-event - #'(lambda (event) - (declare (ignore event)) - (write-line "Destroying window") - nil ; Returning NIL generates a destroy event - ))) +(gtk:within-main-loop + (make-instance 'gtk:window +; :type :toplevel + :title "Test" + :border-width 5 + :visible t :show-children t + :child (make-instance 'gtk:button + :label "Hello World!" + :signal (list 'clicked + #'(lambda () + (write-line "Hello World!")))) + :signal (list 'delete-event + #'(lambda (event) + (declare (ignore event)) + (write-line "Destroying window") + nil ; Returning NIL generates a destroy event + )))) -- [mdw]