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