##################################
# Sound events
##################################
KillModule FvwmEvent LcarsEvents
DestroyModuleConfig LcarsEvents:*
*LcarsEvents: windowshade SoundShade
*LcarsEvents: dewindowshade SoundShade
Module FvwmEvent LcarsEvents
DestroyFunc SoundShade
AddToFunc SoundShade
+ I ThisWindow (ZPanel,!Shaded) Exec exec play /home/warnaud/.fvwm/sounds/lcars/close.au
+ I ThisWindow (ZPanel,Shaded) Exec exec play /home/warnaud/.fvwm/sounds/lcars/open.au
#Note : ZPanel is an FvwmButtons, the shade function for it works :
#DestroyFunc ShadePanel
#AddtoFunc ShadePanel
#+ I All ($0) Schedule $1 WindowShade $2