X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.demo.lisp;h=e5149691ce3c27da77bdfb8a80f0ecf0cb97491b;hb=1393c0a9351e56d7011b44ae5eadadb8a02f6e4b;hp=4d80b7919941afc99b424764bd828da544ea6eba;hpb=c57708f3b1f253e0daa9f7c9b436faee8d96e18e;p=cl-gtk2.git

diff --git a/gtk/gtk.demo.lisp b/gtk/gtk.demo.lisp
index 4d80b79..e514969 100644
--- a/gtk/gtk.demo.lisp
+++ b/gtk/gtk.demo.lisp
@@ -197,6 +197,10 @@
           :hscrollbar-policy :automatic
           :vscrollbar-policy :automatic
           (:expr (make-demo-text-view))))
+      (connect-signal w "destroy"
+                      (lambda (w)
+                        (declare (ignore w))
+                        (leave-gtk-main)))
       (widget-show w))))
 
 (defun test ()