WindowTitle {FvwmApplet-DayClock}
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
   ChangeColorset 11 $MainColorset
  End

  Set $Colorset=(GetScriptArgument 2)
  If $Colorset <> {} Then
  Begin
   ChangeColorset 12 $Colorset
   ChangeColorset 4 $Colorset
   ChangeColorset 2 $Colorset
   ChangeColorset 1 $Colorset
  End
 Set $tmp = (GetOutput {date} 1 4)
 Set $tmp = (StrCopy $tmp 1 5)
 ChangeTitle 1 $tmp
 Set $day  = (GetOutput {date} 1 1)
 Set $month =  (GetOutput {date} 1 2)
 Set $title = $day { } $month
 Set $time = (GetOutput {date} 1 3)
 ChangeTitle  4 $time
 ChangeTitle  2 $title
End

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

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

Widget 11
Property
 Size 60 40
 Position 2 22
 ForeColor	{black}
 BackColor	{white}
 ShadowColor	{grey55}
 HilightColor	{grey100}
 Type Rectangle
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 12
Property
 Size 53 33
 Position 6 26
 ForeColor	{black}
 BackColor	{white}
 ShadowColor	{grey55}
 HilightColor	{grey100}
 Type ItemDraw
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 1
Property
 Position 6 6
 Size 53 12
 Type ItemDraw
 Flags NoReliefString
 ForeColor	{black}
 BackColor	{white}
 ShadowColor	{grey55}
 HilightColor	{grey100}
 Title {}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 2
Property
 Position 6 28
 Size 52 10
 Type ItemDraw
 Flags NoReliefString
 ForeColor	{black}
 BackColor	{white}
 ShadowColor	{grey55}
 HilightColor	{grey100}
 Title {50}
Main
 Case message of
  SingleClic :
  Begin
  End
End

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