WindowTitle {FvwmApplet-Day}
WindowSize 64 64		# Taille
Font -*-fixed-medium-r-normal--10-*
# Better use the FvwmScript default colors.
#BackColor {rgb:a0/90/80}
#ForeColor {black}
#ShadowColor	{black}
#HilightColor	{rgb:a0/90/80}

Init
 Begin
  Set $MainColorset=(GetScriptArgument 1)
  If $MainColorset <> {} Then
  Begin
   ChangeColorset 0 $MainColorset
   ChangeColorset 10 $MainColorset
  End

  Set $Colorset=(GetScriptArgument 2)
  If $Colorset <> {} Then
  Begin
   ChangeColorset 4 $Colorset
   ChangeColorset 2 $Colorset
  End

 Set $day  = (GetOutput {exec date} $pos 1)
 Set $month =  (GetOutput {exec date} $pos 2)
 Set $title = $day { } $month
 ChangeTitle  4 (GetOutput {exec date} $pos 3)
 ChangeTitle  2 $title
End

PeriodicTasks
 Begin
 If (RemainderOfDiv (GetTime) 30)==0 Then
 Begin
  Set $day  = (GetOutput {exec date} $pos 1)
  Set $month =  (GetOutput {exec date} $pos 2)
  Set $title = $day { } $month
  ChangeTitle  4 (GetOutput {exec date} $pos 3)
  ChangeTitle  2 $title
 End
End

Widget 10
Property
 Size 54 54
 Position 5 5
 ForeColor	{black}
 BackColor	{white}
 ShadowColor	{grey55}
 HilightColor	{grey100}
 Type Rectangle
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 2
Property
 Position 9 12
 Size 46 12
 Type ItemDraw
 ForeColor	{black}
 BackColor	{white}
 ShadowColor	{grey55}
 HilightColor	{grey100}
 Flags NoReliefString
 Title {lun jan}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 4
Property
 Position 20 30
 Size 24 10
 Font -*-fixed-medium-r-normal-*-20-*
 Type ItemDraw
 ForeColor	{black}
 BackColor	{white}
 ShadowColor	{grey55}
 HilightColor	{grey100}
 Flags NoReliefString
 Title {1}
Main
 Case message of
  SingleClic :
  Begin
  End
End
