Commit | Line | Data |
---|---|---|
3e5c51c7 | 1 | (use-package "GTK") |
0d07716f | 2 | |
3 | (make-instance 'window | |
4 | :type :toplevel | |
5 | :title "Test" | |
6 | :border-width 5 | |
19ecaf3c | 7 | :show-all t |
0d07716f | 8 | :child (make-instance 'button |
9 | :label "Hello World!" | |
19ecaf3c | 10 | :signal (list 'clicked |
11 | #'(lambda (button) | |
12 | (print button) (write-line "clicked")) | |
13 | :object t))) | |
0d07716f | 14 | |
15 |