scripts/FvwmApplet-Day

   1 WindowTitle {FvwmApplet-Day}
   2 WindowSize 64 64                # Taille
   3 Font -*-fixed-medium-r-normal--10-*
   4 # Better use the FvwmScript default colors.
   5 #BackColor {rgb:a0/90/80}
   6 #ForeColor {black}
   7 #ShadowColor    {black}
   8 #HilightColor   {rgb:a0/90/80}
   9
  10 Init
  11  Begin
  12   Set $MainColorset=(GetScriptArgument 1)
  13   If $MainColorset <> {} Then
  14   Begin
  15    ChangeColorset 0 $MainColorset
  16    ChangeColorset 10 $MainColorset
  17   End
  18
  19   Set $Colorset=(GetScriptArgument 2)
  20   If $Colorset <> {} Then
  21   Begin
  22    ChangeColorset 4 $Colorset
  23    ChangeColorset 2 $Colorset
  24   End
  25
  26  Set $day  = (GetOutput {exec date} $pos 1)
  27  Set $month =  (GetOutput {exec date} $pos 2)
  28  Set $title = $day { } $month
  29  ChangeTitle  4 (GetOutput {exec date} $pos 3)
  30  ChangeTitle  2 $title
  31 End
  32
  33 PeriodicTasks
  34  Begin
  35  If (RemainderOfDiv (GetTime) 30)==0 Then
  36  Begin
  37   Set $day  = (GetOutput {exec date} $pos 1)
  38   Set $month =  (GetOutput {exec date} $pos 2)
  39   Set $title = $day { } $month
  40   ChangeTitle  4 (GetOutput {exec date} $pos 3)
  41   ChangeTitle  2 $title
  42  End
  43 End
  44
  45 Widget 10
  46 Property
  47  Size 54 54
  48  Position 5 5
  49  ForeColor      {black}
  50  BackColor      {white}
  51  ShadowColor    {grey55}
  52  HilightColor   {grey100}
  53  Type Rectangle
  54 Main
  55  Case message of
  56   SingleClic :
  57   Begin
  58   End
  59 End
  60
  61 Widget 2
  62 Property
  63  Position 9 12
  64  Size 46 12
  65  Type ItemDraw
  66  ForeColor      {black}
  67  BackColor      {white}
  68  ShadowColor    {grey55}
  69  HilightColor   {grey100}
  70  Flags NoReliefString
  71  Title {lun jan}
  72 Main
  73  Case message of
  74   SingleClic :
  75   Begin
  76   End
  77 End
  78
  79 Widget 4
  80 Property
  81  Position 20 30
  82  Size 24 10
  83  Font -*-fixed-medium-r-normal-*-20-*
  84  Type ItemDraw
  85  ForeColor      {black}
  86  BackColor      {white}
  87  ShadowColor    {grey55}
  88  HilightColor   {grey100}
  89  Flags NoReliefString
  90  Title {1}
  91 Main
  92  Case message of
  93   SingleClic :
  94   Begin
  95   End
  96 End