24 lines
513 B
Plaintext
24 lines
513 B
Plaintext
(defwindow example
|
|
:monitor 0
|
|
:geometry (geometry :x "0%"
|
|
:y "80px"
|
|
:width "20%"
|
|
:height "60px"
|
|
:anchor "top center")
|
|
:stacking "fg"
|
|
:windowtype "dialog"
|
|
:wm-ignore true
|
|
volslider)
|
|
|
|
(deflisten volume
|
|
:initial "getvol"
|
|
'tail -F /tmp/vol')
|
|
|
|
(defwidget volslider []
|
|
(box :orientation "horizontal"
|
|
:halign "center"
|
|
volume
|
|
(scale :value volume
|
|
:min 0
|
|
:max 100)))
|