25 lines
837 B
Plaintext
25 lines
837 B
Plaintext
|
|
; Monitor the popup is currently open on (set by scripts/panel-toggle), so a
|
|
; panel switch on the same monitor is an in-place revealer transition.
|
|
(defvar popup-screen "")
|
|
|
|
(defwidget popup-win []
|
|
(box :space-evenly false :orientation "v"
|
|
(revealer :reveal {active-panel == "sys"} :transition "slidedown" :duration 120
|
|
(sys-win))
|
|
(revealer :reveal {active-panel == "net"} :transition "slidedown" :duration 120
|
|
(net-win))
|
|
(revealer :reveal {active-panel == "clock"} :transition "slidedown" :duration 120
|
|
(clock-win))
|
|
(revealer :reveal {active-panel == "radio"} :transition "slidedown" :duration 120
|
|
(radio-win))))
|
|
|
|
(defwindow popup
|
|
:monitor 0
|
|
:stacking "overlay"
|
|
:geometry (geometry
|
|
:x "0%" :y "0%"
|
|
:anchor "bottom right"
|
|
:width "320px" :height "0px")
|
|
(window (popup-win)))
|