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

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