QQ登录

只需一步,快速开始

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 2111|回复: 2

大家的fvwm使用什么时钟显示

[复制链接]
发表于 2005-12-20 02:15:57 | 显示全部楼层 |阅读模式
我想swallow一个flash的,搞不成。看你们用什么的。
发表于 2005-12-24 16:11:43 | 显示全部楼层
一个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
-------------------------------------------------------------------------------------
回复

使用道具 举报

 楼主| 发表于 2005-12-25 01:57:22 | 显示全部楼层
还不错。可以自己慢慢改。加日期。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

GMT+8, 2024-4-26 22:17 , Processed in 0.085362 second(s), 15 queries .

© 2021 Powered by Discuz! X3.5.

快速回复 返回顶部 返回列表