# FVWM-Crystal Panel
# Written by: Maciej Delmanowski <harnir@linux.net.pl>

All (FvwmButtons-Panel) Close
DestroyModuleConfig FvwmButtons-Panel: *
*FvwmButtons-Panel: Geometry --1+-1
*FvwmButtons-Panel: BoxSize smart
*FvwmButtons-Panel: Colorset $[cs-panel-inactive]
*FvwmButtons-Panel: Columns 2
*FvwmButtons-Panel: Padding 1 1
*FvwmButtons-Panel: Frame 0

*FvwmButtons-Panel: (2x1, Size 60 22, Action About, \
	Swallow (Close, UseOld) "FvwmScript-Clock" \
	'Module FvwmScript $./FvwmScript-Clock')

Test (x psi) *FvwmButtons-Panel: (1x1, Size 24 24, \
Action X psi, ActionIgnoresClientWindow, \
Swallow (NoClose, UseOld, Respawn) "psidock" 'Nop')

*FvwmButtons-Panel: (1x1, Size 24 24, Action A (Mouse 1) mutt, \
	Swallow (Close, UseOld, Respawn) "FvwmScript-MailCounter" \
	'Module FvwmScript $./FvwmScript-MailCounter')

# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# Main XMMS button, with some menus.
Test (x xmms) *FvwmButtons-Panel: (1x1, Icon "xmms-play.png", \
Action (Mouse 1) Menu /XMMS $[MenuPosition-WS], \
Action (Mouse 2) All (XMMS_Player) Iconify toggle, \
Action (Mouse 3) Exec exec xmms --play-pause)

# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# XMMS controls button.
Test (x xmms) *FvwmButtons-Panel: (1x1), Icon "xmms-controls.png", \
        Action (Mouse 1) X xmms --fwd, \
        Action (Mouse 2) XMMS-Find, \
        Action (Mouse 3) X xmms --rew, \
	Action (Mouse 4) Exec exec xmms-shell -e "forward", \
	Action (Mouse 5) Exec exec xmms-shell -e "backward")


*FvwmButtons-Panel: (1x1, Icon "wallpaper.png", \
Action (Mouse 1) Menu /Wallpaper $[MenuPosition-WS], \
Action (Mouse 2) Wallpaper-Random, \
Action (Mouse 3) Wallpaper-Random)

# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# Aumix button.
Test (Init) Exec exec fvwm-crystal.volumed -r 18 -f "volume/%u.png\n"
Test (x aumix) *FvwmButtons-Panel: (1x1, Size 24 24, \
        Action (Mouse 1) X aumix -v +10, \
        Action (Mouse 2) Aumix, \
        Action (Mouse 3) X aumix -v -10, \
        Action (Mouse 4) X aumix -v +2, \
        Action (Mouse 5) X aumix -v -2, \
	Swallow (Close, UseOld) "FvwmScript-Volume" \
	'Module FvwmScript $./FvwmScript-Volume')

*FvwmButtons-Panel: (1x1, Icon "windows.png", \
Action (Mouse 1) Window-List "$[MenuPosition-WS]", \
Action (Mouse 2) All (CurrentPage) PlaceAgain anim, \
Action (Mouse 3) ThumbnailList "$[MenuPosition-SW]")

*FvwmButtons-Panel: (1x1), Icon "desktop.png", \
	Action (Mouse 1) GotoPage-Left, \
	Action (Mouse 2) GotoPage prev, \
	Action (Mouse 3) GotoPage-Right, \
	Action (Mouse 4) GotoPage-Right, \
	Action (Mouse 5) GotoPage-Left)

DestroyFunc FvwmButtons-Panel
AddToFunc FvwmButtons-Panel
+ I All (FvwmButtons-Panel) Close
+ I TestRc (False) None (FvwmButtons-Panel) Module FvwmButtons FvwmButtons-Panel
+ I EWMH-Panel-Right 60

# vim:ft=fvwm
