chiark / gitweb /
Changes to initialization/event handling
[clg] / hello-world.lisp
... / ...
CommitLineData
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 )))