34 lines
651 B
Text
34 lines
651 B
Text
(defwindow example
|
|
:monitor 0
|
|
:geometry (geometry :x "0%"
|
|
:y "10%"
|
|
:width "90%"
|
|
:height "5%"
|
|
: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"
|
|
)
|
|
)
|
|
)
|