chiark / gitweb /
Remove automatic system initialization
[clg] / hello-world.lisp
CommitLineData
781a1be5 1(use-package :gtk)
560af5c5 2
3(make-instance 'window
781a1be5 4; :type :toplevel
560af5c5 5 :title "Test"
6 :border-width 5
1e502466 7 :show-all t
560af5c5 8 :child (make-instance 'button
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 )))