From 781a1be5aeebb0c40b01033be5ea1b82fa3632e3 Mon Sep 17 00:00:00 2001 Message-Id: <781a1be5aeebb0c40b01033be5ea1b82fa3632e3.1715632365.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 27 Oct 2004 15:27:57 +0000 Subject: [PATCH] Adding destroy-event signal to the top-level window Organization: Straylight/Edgeware From: espen --- hello-world.lisp | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/hello-world.lisp b/hello-world.lisp index 4334c17..f700cb2 100644 --- a/hello-world.lisp +++ b/hello-world.lisp @@ -1,15 +1,18 @@ -(use-package "GTK") +(use-package :gtk) (make-instance 'window - :type :toplevel +; :type :toplevel :title "Test" :border-width 5 :show-all t :child (make-instance 'button :label "Hello World!" :signal (list 'clicked - #'(lambda (button) - (print button) (write-line "clicked")) - :object t))) - - + #'(lambda () + (write-line "Hello World!")))) + :signal (list 'delete-event + #'(lambda (event) + (declare (ignore event)) + (write-line "Destroying window") + nil ; Returning NIL generates a destroy event + ))) -- [mdw]