chiark / gitweb /
Fix compilation for Gtk with the new, stricter inheritance
[clg] / hello-world.lisp
CommitLineData
5b1b4e6a 1(gtk:clg-init)
560af5c5 2
dc3ddae0 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 ))))