22 lines
530 B
Text
22 lines
530 B
Text
(defvar reveal_tray false)
|
|
(defwidget tray []
|
|
(revealer-on-hover
|
|
:class "tray ${reveal_tray}"
|
|
:revealvar reveal_tray
|
|
:revealvar-name "reveal_tray"
|
|
(label
|
|
:class "revealer-preview"
|
|
:text {reveal_tray ? "" : ""})
|
|
(tray_children)))
|
|
|
|
(defwidget tray_children []
|
|
(box :orientation "h"
|
|
:space-evenly false
|
|
:halign "center"
|
|
(systray
|
|
:orientation "h"
|
|
:class "reveal-children"
|
|
:space-evenly true
|
|
:spacing 0
|
|
:icon-size 20
|
|
:prepend-new true)))
|