9 :visible t :show-children t
10 :child (make-instance 'button
12 :signal (list 'clicked
14 (write-line "Hello World!"))))
15 :signal (list 'delete-event
17 (declare (ignore event))
18 (write-line "Destroying window")
19 nil ; Returning NIL generates a destroy event