scripts/FvwmApplet-DayClock

   1 WindowTitle {FvwmApplet-DayClock}
   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    ChangeColorset 11 $MainColorset
  18   End
  19
  20   Set $Colorset=(GetScriptArgument 2)
  21   If $Colorset <> {} Then
  22   Begin
  23    ChangeColorset 12 $Colorset
  24    ChangeColorset 4 $Colorset
  25    ChangeColorset 2 $Colorset
  26    ChangeColorset 1 $Colorset
  27   End
  28  Set $tmp = (GetOutput {date} 1 4)
  29  Set $tmp = (StrCopy $tmp 1 5)
  30  ChangeTitle 1 $tmp
  31  Set $day  = (GetOutput {date} 1 1)
  32  Set $month =  (GetOutput {date} 1 2)
  33  Set $title = $day { } $month
  34  Set $time = (GetOutput {date} 1 3)
  35  ChangeTitle  4 $time
  36  ChangeTitle  2 $title
  37 End
  38
  39 PeriodicTasks
  40  Begin
  41  If (RemainderOfDiv (GetTime) 30)==0 Then
  42  Begin
  43   Set $tmp = (GetOutput {date} 1 4)
  44   Set $tmp = (StrCopy $tmp 1 5)
  45   ChangeTitle 1 $tmp
  46   Set $day  = (GetOutput {date} 1 1)
  47   Set $month =  (GetOutput {date} 1 2)
  48   Set $title = $day { } $month
  49   Set $tmp = (GetOutput {date} 1 3)
  50   ChangeTitle  4 $tmp
  51   ChangeTitle  2 $title
  52  End
  53 End
  54
  55 Widget 10
  56 Property
  57  Size 60 19
  58  Position 2 2
  59  ForeColor      {black}
  60  BackColor      {white}
  61  ShadowColor    {grey55}
  62  HilightColor   {grey100}
  63  Type Rectangle
  64 Main
  65  Case message of
  66   SingleClic :
  67   Begin
  68   End
  69 End
  70
  71 Widget 11
  72 Property
  73  Size 60 40
  74  Position 2 22
  75  ForeColor      {black}
  76  BackColor      {white}
  77  ShadowColor    {grey55}
  78  HilightColor   {grey100}
  79  Type Rectangle
  80 Main
  81  Case message of
  82   SingleClic :
  83   Begin
  84   End
  85 End
  86
  87 Widget 12
  88 Property
  89  Size 53 33
  90  Position 6 26
  91  ForeColor      {black}
  92  BackColor      {white}
  93  ShadowColor    {grey55}
  94  HilightColor   {grey100}
  95  Type ItemDraw
  96 Main
  97  Case message of
  98   SingleClic :
  99   Begin
 100   End
 101 End
 102
 103 Widget 1
 104 Property
 105  Position 6 6
 106  Size 53 12
 107  Type ItemDraw
 108  Flags NoReliefString
 109  ForeColor      {black}
 110  BackColor      {white}
 111  ShadowColor    {grey55}
 112  HilightColor   {grey100}
 113  Title {}
 114 Main
 115  Case message of
 116   SingleClic :
 117   Begin
 118   End
 119 End
 120
 121 Widget 2
 122 Property
 123  Position 6 28
 124  Size 52 10
 125  Type ItemDraw
 126  Flags NoReliefString
 127  ForeColor      {black}
 128  BackColor      {white}
 129  ShadowColor    {grey55}
 130  HilightColor   {grey100}
 131  Title {50}
 132 Main
 133  Case message of
 134   SingleClic :
 135   Begin
 136   End
 137 End
 138
 139 Widget 4
 140 Property
 141  Position 22 40
 142  Size 20 10
 143  Font -*-fixed-medium-r-normal--15-*
 144  Type ItemDraw
 145  Flags NoReliefString
 146  ForeColor      {black}
 147  BackColor      {white}
 148  ShadowColor    {grey55}
 149  HilightColor   {grey100}
 150  Title {50}
 151 Main
 152  Case message of
 153   SingleClic :
 154   Begin
 155   End
 156 End