X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/0d07716fe78436ae6c9c324cabdd401c25e336af..f267f9a3332b27b33fa1b7fe3fc1736dfadc9612:/hello-world.lisp?ds=inline

diff --git a/hello-world.lisp b/hello-world.lisp
index d89a585..4334c17 100644
--- a/hello-world.lisp
+++ b/hello-world.lisp
@@ -4,12 +4,12 @@ (make-instance 'window
  :type :toplevel
  :title "Test"
  :border-width 5
- :visible t
+ :show-all t
  :child (make-instance 'button
 	 :label "Hello World!"
-	 :visible t
-	 :signals
-	 (list (list 'clicked #'(lambda () (write-line "Button clicked"))))))
-
+	 :signal (list 'clicked
+		       #'(lambda (button)
+			   (print button) (write-line "clicked"))
+		       :object t)))