chiark / gitweb /
Removed obsoleted code and added a few accessor functions
[clg] / hello-world.lisp
... / ...
CommitLineData
1(use-package "GTK")
2
3(make-instance 'window
4 :type :toplevel
5 :title "Test"
6 :border-width 5
7 :visible t
8 :child (make-instance 'button
9 :label "Hello World!"
10 :visible t
11 :signals
12 (list (list 'clicked #'(lambda () (write-line "Button clicked"))))))
13
14
15