WindowTitle {FvwmApplet-Day}
WindowSize 64 64		# Taille
Font		6x10
# 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 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
 Font 6x10
 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 10x20
 Type ItemDraw
 ForeColor	{black}
 BackColor	{white}
 ShadowColor	{grey55}
 HilightColor	{grey100}
 Flags NoReliefString
 Title {1}
Main
 Case message of
  SingleClic :
  Begin
  End
End
