chiark / gitweb /
~mdw / clg / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
Initial revision
[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
Common Lisp bindings for GTK and friends (local modifications).