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