scripts/FvwmApplet-DigitalClock

   1 WindowTitle {FvwmApplet-DigitalClock}
   2 WindowSize 60 14                # Taille
   3 Font            -*-lucida-bold-r-normal-*-10-*-*-*-*-*-*
   4 # 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 1 $MainColorset
  17   End
  18   Set $tmp = (GetOutput {exec date} $pos 4)
  19   Set $tmp = (StrCopy $tmp 1 5)
  20   ChangeTitle 1 $tmp
  21 End
  22
  23 PeriodicTasks
  24  Begin
  25   If (RemainderOfDiv (GetTime) 30)==0 Then
  26   Begin
  27     Set $tmp = (GetOutput {exec date} $pos 4)
  28     Set $tmp = (StrCopy $tmp 1 5)
  29     ChangeTitle  1 $tmp
  30   End
  31 End
  32
  33 Widget 1
  34 Property
  35  Position 0 0
  36  Size 60 14
  37  Type ItemDraw
  38  Flags NoReliefString
  39  Title {}
  40 Main
  41  Case message of
  42   SingleClic :
  43   Begin
  44   End
  45 End