5b1b4e6a |
1 | (gtk:clg-init) |
560af5c5 |
2 | |
5b1b4e6a |
3 | (make-instance 'gtk:window |
781a1be5 |
4 | ; :type :toplevel |
560af5c5 |
5 | :title "Test" |
6 | :border-width 5 |
f0c3c3e5 |
7 | :visible t :show-children t |
5b1b4e6a |
8 | :child (make-instance 'gtk:button |
560af5c5 |
9 | :label "Hello World!" |
1e502466 |
10 | :signal (list 'clicked |
781a1be5 |
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 | ))) |