chiark / gitweb /
Changes to initialization/event handling
[clg] / hello-world.lisp
CommitLineData
5b1b4e6a 1(gtk:clg-init)
560af5c5 2
5b1b4e6a 3(make-instance 'gtk:window
781a1be5 4; :type :toplevel
560af5c5 5 :title "Test"
6 :border-width 5
f0c3c3e5 7 :visible t :show-children t
5b1b4e6a 8 :child (make-instance 'gtk:button
560af5c5 9 :label "Hello World!"
1e502466 10 :signal (list 'clicked
781a1be5 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 )))