chiark - git - mdw - clg/blob - hello-world.lisp

   1 (in-package "GTK")
   2
   3 (make-instance 'window
   4  :type :toplevel
   5  :title "Test"
   6  :border-width 5
   7  :show-all t
   8  :child (make-instance 'button
   9          :label "Hello World!"
  10          :signal (list 'clicked
  11                        #'(lambda (button)
  12                            (print button) (write-line "clicked"))
  13                        :object t)))
  14
  15