
(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)))
