# FvwmScript-Calendar
#
# displays date in a small window which is intended to be swallowed by
# FvwmButtons
#

WindowTitle {FvwmScript-Calendar}
WindowSize 56 56

# the following should be commented out if the Calendar is used outside
# of FvwmButtons
WindowPosition 30000 30000

Init
 Begin
  Set $day = (GetOutput {exec date -j '+%a'} 1 -1)
  ChangeTitle  1 $day
  Set $daydec = (GetOutput {exec date -j '+%e'} 1 -1)
  ChangeTitle  2 $daydec
  Set $month = (GetOutput {exec date -j '+%b'} 1 -1)
  ChangeTitle  3 $month
 End

PeriodicTasks
 Begin
  If (RemainderOfDiv (GetTime) 60)==0 Then
  Begin
  Set $day = (GetOutput {exec date -j '+%a'} 1 -1)
  ChangeTitle  1 $day
  Set $daydec = (GetOutput {exec date -j '+%e'} 1 -1)
  ChangeTitle  2 $daydec
  Set $month = (GetOutput {exec date -j '+%b'} 1 -1)
  ChangeTitle  3 $month
  End
 End

Widget 1
Property
 Position 0 0
 Size 56 16
 Type ItemDraw
 Flags Center NoReliefString
 Title {Ij_}
 Font "xft:sans-serif:size=9:encoding=iso8859-1:minspace=true"
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 2
Property
 Position 0 16
 Size 56 24
 Type ItemDraw
 Flags Center NoReliefString
 Title {Ij_}
 Font "xft:sans-serif:size=12:weight=bold:encoding=iso8859-1:minspace=true"
Main
 Case message of
  SingleClic :
  Begin
  End
End

Widget 3
Property
 Position 0 40
 Size 56 16
 Type ItemDraw
 Flags Center NoReliefString
 Title {Ij_}
 Font "xft:sans-serif:size=9:encoding=iso8859-1:minspace=true"
Main
 Case message of
  SingleClic :
  Begin
  End
End