(format t "Response was: ~S~%" (dialog-run dialog))
(object-destroy dialog)))))
(let ((button (make-instance 'button :label "About")))
(format t "Response was: ~S~%" (dialog-run dialog))
(object-destroy dialog)))))
(let ((button (make-instance 'button :label "About")))