~mdw / clg / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | (use-package :gtk) | |
| 2 | ||
| 3 | (clg-init) | |
| 4 | ||
| 5 | (make-instance 'window | |
| 6 | ; :type :toplevel | |
| 7 | :title "Test" | |
| 8 | :border-width 5 | |
| 9 | :visible t :show-children t | |
| 10 | :child (make-instance 'button | |
| 11 | :label "Hello World!" | |
| 12 | :signal (list 'clicked | |
| 13 | #'(lambda () | |
| 14 | (write-line "Hello World!")))) | |
| 15 | :signal (list 'delete-event | |
| 16 | #'(lambda (event) | |
| 17 | (declare (ignore event)) | |
| 18 | (write-line "Destroying window") | |
| 19 | nil ; Returning NIL generates a destroy event | |
| 20 | ))) |