WindowTitle {FvwmScript-ACPI}
WindowSize 48 24
Font "xft:Tahoma-10:Bold"
Colorset 1

Init
Begin
Set $tmp = (GetOutput {exec fvwm-crystal.acpi} 1 -1)
ChangeTitle 1 $tmp
End

PeriodicTasks
Begin 
If (RemainderOfDiv (GetTime) 60)==0 Then
Begin
Set $tmp = (GetOutput {exec fvwm-crystal.acpi} 1 -1)
ChangeTitle 1 $tmp
End
End

Widget 1
Property
Position 0 -2
Size 48 24
Type ItemDraw
Flags NoReliefString
Title {}
Colorset 1
Main
Case message of
SingleClic :
Begin
End
End

