# FvwmPager
All (FvwmPager) Close
DestroyModuleConfig FvwmPager*

#SetEnv FvwmPager-Width "223"
SetEnv FvwmPagerDesktops "8"

PipeRead "echo SetEnv FvwmPager-Width \"$[28*$FvwmPagerDesktops]\""
PipeRead "echo *FvwmPager: Geometry $[FvwmPager-Width]x24+$((($[vp.width]-$[FvwmPager-Width])/2))+3"

*FvwmPager: MiniIcons
*FvwmPager: Font none
*FvwmPager: WindowBorderWidth 1
*FvwmPager: Window3DBorders
#*FvwmPager: NoSeparators
*FvwmPager: UseSkipList
*FvwmPager: Colorset * $[cs-panel-inactive]
*FvwmPager: HilightColorset * $[cs-panel-active]
*FvwmPager: WindowColorsets $[cs-panel-wininactive] $[cs-panel-winactive]

Style FvwmPager Sticky, NeverFocus, WindowListSkip, FixedPosition, \
	FixedSize, StaysOnBottom, NoHandles, BorderWidth 1, HandleWidth 1, \
	NoTitle, NoIcon, Colorset $[cs-panel-border], \
	BorderColorset $[cs-panel-border], \
	HilightColorset $[cs-panel-border], \
	HilightBorderColorset $[cs-panel-border]

PipeRead "echo DesktopSize ${FvwmPagerDesktops}x1"
#DesktopSize 8x1

DestroyFunc FvwmPager
AddToFunc FvwmPager
+ I Test (!Start) All (FvwmPager) Close
+ I None (FvwmPager) Module FvwmPager 0

Mouse (FvwmPager) 4 W $[Mod0] GotoPage-Right
Mouse (FvwmPager) 5 W $[Mod0] GotoPage-Left
