chiark / gitweb /
Changed reference from gutils.lisp to utils.lisp
[clg] / hello-world.lisp
CommitLineData
53a94300 1(use-package "GTK")
560af5c5 2
3(make-instance 'window
4 :type :toplevel
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
11 #'(lambda (button)
12 (print button) (write-line "clicked"))
13 :object t)))
560af5c5 14
15