22 lines
554 B
Text
22 lines
554 B
Text
(defvar reveal_powermenu false)
|
|
(defwidget powermenu []
|
|
(revealer-on-hover
|
|
:revealvar reveal_powermenu
|
|
:revealvar-name "reveal_powermenu"
|
|
(button :onclick 'sp-powermenu'
|
|
"")
|
|
(powermenu_children)))
|
|
|
|
(defwidget powermenu_children []
|
|
(box :class "reveal_children"
|
|
:orientation "h"
|
|
:space-evenly false
|
|
:halign "center"
|
|
(button :onclick 'sp-powermenu'
|
|
"")
|
|
(button :onclick 'sp-powermenu'
|
|
"")
|
|
(button :onclick 'sp-powermenu'
|
|
"")
|
|
(button :onclick 'sp-powermenu'
|
|
"")))
|