29 lines
772 B
Text
29 lines
772 B
Text
(defvar reveal_powermenu false)
|
|
(defwidget powermenu []
|
|
(revealer-on-hover
|
|
:revealvar reveal_powermenu
|
|
:class "powermenu ${reveal_powermenu}"
|
|
:revealvar-name "reveal_powermenu"
|
|
(button :onclick 'sdu power shutdown'
|
|
:class "revealer-preview"
|
|
:tooltip "Shutdown"
|
|
"")
|
|
(powermenu_children)))
|
|
|
|
(defwidget powermenu_children []
|
|
(box :class "reveal-children"
|
|
:orientation "h"
|
|
:space-evenly false
|
|
:halign "center"
|
|
(button :onclick 'sdu power reboot'
|
|
:tooltip "Reboot"
|
|
"")
|
|
(button :onclick 'sdu power suspend'
|
|
:tooltip "Suspend"
|
|
"")
|
|
(button :onclick 'sdu power lock'
|
|
:tooltip "Lock"
|
|
"")
|
|
(button :onclick 'sdu power logout'
|
|
:tooltip "Logout"
|
|
"")))
|