Commit | Line | Data |
---|---|---|
781a1be5 | 1 | (use-package :gtk) |
560af5c5 | 2 | |
3 | (make-instance 'window | |
781a1be5 | 4 | ; :type :toplevel |
560af5c5 | 5 | :title "Test" |
6 | :border-width 5 | |
1e502466 | 7 | :show-all t |
560af5c5 | 8 | :child (make-instance 'button |
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 | ))) |