12 lines
281 B
Plaintext
12 lines
281 B
Plaintext
(defwidget greeter [?text name]
|
|
(box :orientation "horizontal"
|
|
:halign "center"
|
|
text
|
|
(button :onclick "notify-send 'Hello' 'Hello, ${name}'"
|
|
"Greet")))
|
|
|
|
(defwindow example
|
|
; ... values omitted
|
|
(greeter :text "Say hello!"
|
|
:name "Tim")
|