24 lines
534 B
Plaintext
24 lines
534 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)))
|