Commit | Line | Data |
---|---|---|
5b1b4e6a | 1 | (gtk:clg-init) |
560af5c5 | 2 | |
dc3ddae0 | 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 | )))) |