chiark / gitweb /
gtk/gtk.lisp: Apparently when you ask for a stock Button, you get a Bin.
[clg] / 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                 ))))