26 lines
618 B
Text
26 lines
618 B
Text
(defwindow example
|
|
:monitor 0
|
|
:geometry (geometry :x "0%"
|
|
:y "20px"
|
|
:width "90%"
|
|
:height "30px"
|
|
:anchor "top center")
|
|
:stacking "bg"
|
|
:windowtype "dock"
|
|
:wm-ignore false
|
|
|
|
(box :orientation "vertical"
|
|
(greeter :text "Say hello!"
|
|
:name "Tim"
|
|
)
|
|
|
|
"example content"
|
|
)
|
|
)
|
|
|
|
(defwidget greeter [?text name]
|
|
(box :orientation "horizontal"
|
|
:halign "center"
|
|
text
|
|
(button :onclick "echo 'Hello' 'Hello, ${name}'"
|
|
"Greet")))
|