From 1393c0a9351e56d7011b44ae5eadadb8a02f6e4b Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Mon, 25 Jan 2010 04:15:41 +0300 Subject: [PATCH] Add call to leave-gtk-main in gtk-demo:demo --- gtk/gtk.demo.lisp | 4 ++++ 1 file changed, 4 insertions(+) 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 () -- 1.7.10.4