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