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

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