一个fvwmscript
----------------------------------------------------------------------------------
WindowTitle {FvwmDate}
#WindowSize 155 20 # Taille
WindowSize 80 20 # Taille
WindowPosition 0 0 # Position
Colorset 18
Font "Shadow=1 b bl r br r :StringEncoding=gbk-0ft:simsun:size=9:encoding=iso10646-1"
Init
Begin
#Set $AHour=(GetOutput {date '+%A %d %B %Y %H:%M'} 1 -1)
Set $AHour=(GetOutput {date '+%A %H:%M'} 1 -1)
ChangeTitle 3 $AHour
End
PeriodicTasks
Begin
If (RemainderOfDiv (GetTime) 60)==0 Then
Begin
Set $AHour=(GetOutput {date '+%A %H:%M'} 1 -1)
ChangeTitle 3 $AHour
End
End
Widget 1
Property
#Size 100 18
Size 60 14
Position 170 -5
Colorset 18
Font "Shadow=1 b bl r br r :StringEncoding=gbk-0ft:simsun:size=9:encoding=iso10646-1"
Flags Right
Type ItemDraw
Title {OK}
Main
Case message of
SingleClic :
Begin
Do {Exec sudo ntpdate ntp0.zenon.net}
End
End
Widget 2
Property
Size 20 20
Position 0 0
Colorset 18
Type ItemDraw
End
Widget 3
Property
#Size 155 18
Size 76 18
Position 0 0
Colorset 18
Font "Shadow=1 b bl r br r :StringEncoding=gbk-0ft:simsun:size=9:encoding=iso10646-1"
Flags Right
Type ItemDraw
Title {OK}
Main
Case message of
SingleClic :
Begin
Do {Next (*Calendar*) focus}
End
End
-------------------------------------------------------------------------------------