WindowTitle {Media Player}
WindowSize 500 115
WindowPosition 1021 253
ForeColor {White}
BackColor {Black}

Init
 Begin
  Set $MusicDir=/home/matt/mp3/
  Set $getfiles={/home/muser/.fvwm/Scripts/listsongs.sh}
  Set $SongList=(GetOutput $getfiles 1 -1)
 End
PeriodicTasks
 Begin
  If (RemainderOfDiv (GetTime) 200)==0 Then
   Set $I=2
   Set $SongList
   While (GetOutput $getfiles $I -1) <> {} Do
    Begin
    Set $SongList=$SongList {|} (GetOutput $getfiles $I -1)
    Set $I=(Add $I 1)
    End
   ChangeTitle 1 $SongList
 End

Widget 1
Property
 Position 4 3
 Flags NoReliefString
 Font 10x20
 Size 380 90
 HilightColor {SkyBlue}
 Type List
 Title {}
Main
 Case message of
  ScrollUp :
   Begin
     ChangeValue 1 (Add (GetValue 1) 1)
   End
  ScrollDown:
   Begin
   End
End

Widget 2
Property
 Type PushButton
 Title {Play}
 Flags NoReliefString
 Size 20 20
 Position 400 40
Main
 Case message of
  SingleClic :
   Begin
   Set $SELECTION=(GetOutput $getfiles (GetValue 1) -1)
   Set $play={Exec exec xterm -e /usr/local/bin/mplayer.sh /home/matt/muser/} $SELECTION
   Do $play
   End
 End