18 lines
425 B
Text
18 lines
425 B
Text
(defvar reveal_tray false)
|
|
(defwidget tray []
|
|
(revealer-on-hover
|
|
:revealvar reveal_tray
|
|
:revealvar-name "reveal_tray"
|
|
{reveal_tray ? "" : ""}
|
|
(tray_children)))
|
|
|
|
(defwidget tray_children []
|
|
(box :class "tray_children"
|
|
:orientation "h"
|
|
:space-evenly false
|
|
:halign "center"
|
|
(systray
|
|
:orientation "h"
|
|
:space-evenly true
|
|
:spacing 10
|
|
:prepend-new true)))
|