chiark / gitweb /
Fixed memory corruption problem in KEYVAL-NAME
[clg] / hello-world.lisp
CommitLineData
e2954b97 1(gtk:clg-init)
0d07716f 2
7ab5382e 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 ))))