projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Add call to leave-gtk-main in gtk-demo:demo
[cl-gtk2.git]
/
gtk
/
gtk.demo.lisp
diff --git
a/gtk/gtk.demo.lisp
b/gtk/gtk.demo.lisp
index
4d80b79
..
e514969
100644
(file)
--- 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 ()