WindowTitle {FvwmApplet-CDEDaySmall}
WindowSize 36 36		# Taille
Font		6x10

Init
Begin
    ChangeColorset 0 23
    ChangeColorset 2 23

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

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

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

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

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