19 lines
451 B
Plaintext
19 lines
451 B
Plaintext
|
|
(defwidget popup-win []
|
|
(box :space-evenly false :orientation "v"
|
|
(box :visible {active-panel == "sys"}
|
|
(sys-win))
|
|
(box :visible {active-panel == "net"}
|
|
(net-win))
|
|
(box :visible {active-panel == "calendar"} :class "sys-win"
|
|
(calendar))))
|
|
|
|
(defwindow popup
|
|
:monitor 0
|
|
:stacking "overlay"
|
|
:geometry (geometry
|
|
:x "0%" :y "0%"
|
|
:anchor "bottom right"
|
|
:width "320px" :height "0px")
|
|
(window (popup-win)))
|