WindowTitle {FvwmApplet-CDEDayLarge}
WindowSize  54 54		# Taille
Font		6x10

Init
Begin
 ChangeColorset 0 23
 ChangeColorset 2 23
 Set $day  = (GetOutput {exec date} $pos 1)
 Set $month =  (GetOutput {exec date} $pos 2)
 ChangeTitle  4 (GetOutput {exec date} $pos 3)
 ChangeTitle  3 $day
 ChangeTitle  5 $month
End

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

Widget 2
Property
 Position 3 3
 Size 48 48
 Type ItemDraw
 Flags NoReliefString
 Icon ../themes/cde/images/module/large/date.xpm
 Title {}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 3
Property
 Position 19 35
 Size 0 11
 Font 5x7
 Type ItemDraw
 ForeColor	{black}
 BackColor	{#bdbdbd}
 Flags NoReliefString 
 Title {XXX}
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 5
Property
 Position 19 8
 Size 0 11
 Font 5x7
 Type ItemDraw
 ForeColor	{black}
 BackColor	{#bdbdbd}
 Flags NoReliefString 
 Title {XXX}
Main
 Case message of
  SingleClic :
  Begin
  End
End


Widget 4
Property
 Position 21 19
 Size 0 0
 Font 6x13
 Type ItemDraw
 ForeColor	{black}
 BackColor	{#bdbdbd}
 Flags NoReliefString
 Title {XX}
Main
 Case message of
  SingleClic :
  Begin
  End
End
