Init
Begin
Set $MainColorset=(GetScriptArgument 1)
If $MainColorset <> {} Then
Begin
ChangeColorset 0 $MainColorset
ChangeColorset 1 $MainColorset
End
# Set $tmp = (GetOutput {exec date} $pos 4)
# Set $tmp = (StrCopy $tmp 1 5)
Set $tmp = (GetOutput {exec date} $pos 4)
Set $tmp = (StrCopy $tmp 1 5)
ChangeTitle 1 $tmp
End
PeriodicTasks
Begin
If (RemainderOfDiv (GetTime) #30)==0 Then
Begin
# Set $tmp = (GetOutput {exec date} $pos 4)
# Set $tmp = (StrCopy $tmp 1 5)
Set $tmp = (GetOutput {exec date} $pos 4)
Set $tmp = (StrCopy $tmp 1 5)
ChangeTitle 1 $tmp
End
End
Widget 1
Property
Position 0 0
Size 60 14
Type ItemDraw
Flags NoReliefString
Title {}
Main
Case message of
SingleClic :
Begin
End
End