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

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

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

*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-WS]")

# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# 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")

# -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
# Aumix button.
Test (x aumix) *FvwmButtons-Panel: (1x1, Size 24 24, \
        Action (Mouse 1) X aumix -v +$[Aumix-VolumeAmount-Button], \
        Action (Mouse 2) Aumix, \
        Action (Mouse 3) X aumix -v -$[Aumix-VolumeAmount-Button], \
        Action (Mouse 4) X aumix -v +$[Aumix-VolumeAmount-Wheel], \
        Action (Mouse 5) X aumix -v -$[Aumix-VolumeAmount-Wheel], \
	Swallow (Close, Respawn) "FvwmScript-Volume" \
	'Module FvwmScript $./FvwmScript-Volume 34')


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 26

# vim:ft=fvwm
