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}
8 #HilightColor {rgb:a0/90/80}
12 Set $MainColorset=(GetScriptArgument 1)
13 If $MainColorset <> {} Then
15 ChangeColorset 0 $MainColorset
16 ChangeColorset 10 $MainColorset
17 ChangeColorset 11 $MainColorset
20 Set $Colorset=(GetScriptArgument 2)
21 If $Colorset <> {} Then
23 ChangeColorset 12 $Colorset
24 ChangeColorset 4 $Colorset
25 ChangeColorset 2 $Colorset
26 ChangeColorset 1 $Colorset
28 Set $tmp = (GetOutput {date} 1 4)
29 Set $tmp = (StrCopy $tmp 1 5)
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)
41 If (RemainderOfDiv (GetTime) 30)==0 Then
43 Set $tmp = (GetOutput {date} 1 4)
44 Set $tmp = (StrCopy $tmp 1 5)
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)
62 HilightColor {grey100}
78 HilightColor {grey100}
94 HilightColor {grey100}
112 HilightColor {grey100}
130 HilightColor {grey100}
143 Font -*-fixed-medium-r-normal--15-*
149 HilightColor {grey100}