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