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 | ))) |