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

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