##################################
# 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