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