3 (make-instance 'gtk:window
7 :visible t :show-children t
8 :child (make-instance 'gtk:button
10 :signal (list 'clicked
12 (write-line "Hello World!"))))
13 :signal (list 'delete-event
15 (declare (ignore event))
16 (write-line "Destroying window")
17 nil ; Returning NIL generates a destroy event