WindowTitle {FvwmApplet-DigitalClock}
WindowSize 60 14		# Taille
Font		-*-lucida-bold-r-normal-*-10-*-*-*-*-*-*
# Background as default FvwmButtons
BackColor {rgb:90/80/90}
ForeColor {black}
ShadowColor	{black}
HilightColor	{rgb:90/80/90}

Init
 Begin
  Set $MainColorset=(GetScriptArgument 1)
  If $MainColorset <> {} Then
  Begin
   ChangeColorset 0 $MainColorset
   ChangeColorset 1 $MainColorset
  End
  Set $tmp = (GetOutput {exec date} $pos 4)
  Set $tmp = (StrCopy $tmp 1 5)
  ChangeTitle 1 $tmp
End

PeriodicTasks
 Begin 
  If (RemainderOfDiv (GetTime) 30)==0 Then
  Begin
    Set $tmp = (GetOutput {exec date} $pos 4)
    Set $tmp = (StrCopy $tmp 1 5)
    ChangeTitle  1 $tmp
  End
End

Widget 1
Property
 Position 0 0
 Size 60 14
 Type ItemDraw
 Flags NoReliefString
 Title {}
Main
 Case message of
  SingleClic :
  Begin
  End
End
