# FvwmPager
All (FvwmPager) Close
DestroyModuleConfig FvwmPager*

SetEnv FvwmPagerDesktops "8"

PipeRead "echo SetEnv FvwmPager-Width \"$[28*$FvwmPagerDesktops]\""
PipeRead "echo *FvwmPager: Geometry $[FvwmPager-Width]x24--1+-1"

*FvwmPager: MiniIcons
*FvwmPager: Font none
*FvwmPager: WindowBorderWidth 1
#*FvwmPager: Geometry 220x24--1+-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 All (FvwmPager) Close
+ I TestRc (False) None (FvwmPager) Module FvwmPager 0

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

