DestroyFunc FuncFvwmButtons-CompactLoad
AddToFunc   FuncFvwmButtons-CompactLoad
+ I *FvwmButtons-Compact: (4x2, Padding 0 0, Colorset 23, Swallow "xload" `FuncFvwmButtons-StartXLoad`)

# not in the previous func because of a variable expansion problem
DestroyFunc FuncFvwmButtons-StartXLoad
AddToFunc   FuncFvwmButtons-StartXLoad
+ I Exec exec xload -nolabel -bg $[bg.cs10] -fg $[fg.cs10] -hl $[shadow.cs13] -update 3 -geometry 86x43-0+99

AddToFunc   FuncFvwmStopThemeModules
+ I DestroyFunc FuncFvwmButtons-StartXLoad
