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