Initial checkin

[clg] / hello-world.lisp

diff --git a/hello-world.lisp b/hello-world.lisp
index d89a58539bfe3e85b4133d5c180a1c4cafd813a3..4334c17bbb06a08995a64f02516bfac270034082 100644 (file)
--- a/hello-world.lisp
+++ b/hello-world.lisp
@@ -4,12 +4,12 @@ (make-instance 'window
  :type :toplevel
  :title "Test"
  :border-width 5
  :type :toplevel
  :title "Test"
  :border-width 5

- :visible t
+ :show-all t

  :child (make-instance 'button
         :label "Hello World!"
  :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)))