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

   1 (use-package :gtk)
   2
   3 (clg-init)
   4
   5 (make-instance 'window
   6 ; :type :toplevel
   7  :title "Test"
   8  :border-width 5
   9  :show-all t
  10  :child (make-instance 'button
  11          :label "Hello World!"
  12          :signal (list 'clicked
  13                        #'(lambda ()
  14                            (write-line "Hello World!"))))
  15  :signal (list 'delete-event
  16                #'(lambda (event)
  17                    (declare (ignore event))
  18                    (write-line "Destroying window")
  19                    nil ; Returning NIL generates a destroy event
  20                    )))