WindowTitle {FvwmScript-Volume}
WindowSize 24 24
Colorset 1

Init
 Begin
 	Set $volume=(GetOutput {cat ~/.fvwm/.VolumeAmount} 1 1)
	Set $volume_prev=-1
    	ChangeIcon 1 $volume
 End

PeriodicTasks
 Begin 
 	Set $volume=(GetOutput {cat ~/.fvwm/.VolumeAmount} 1 1)
	If $volume==$volume_prev Then
	Begin
    	#	ChangeIcon 1 $volume
	End	
	Else
	Begin
    		ChangeIcon 1 $volume
		Set $volume_prev=$volume
	End
 End

Widget 1
Property
 Position 0 0
 Size 24 24
 Type ItemDraw
 Flags NoReliefString Center
Main
 Case message of
  SingleClic :
  Begin
  End
End
