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