WindowTitle {FvwmApplet-DigitalClock} WindowSize 107 20 # Taille Font "xft:UnBom:style=Bold:size=10" Init Begin Set $MainColorset=(GetScriptArgument 1) If $MainColorset <> {} Then Begin ChangeColorset 0 $MainColorset ChangeColorset 1 $MainColorset End Set $tmp = (GetOutput {exec date "+%b %e, %R"} 1 -1) ChangeTitle 1 $tmp End PeriodicTasks Begin If (RemainderOfDiv (GetTime) 30)==0 Then Begin Set $tmp = (GetOutput {exec date "+%b %e, %R"} 1 -1) ChangeTitle 1 $tmp End End Widget 1 Property Position 0 0 Size 107 20 Type ItemDraw Flags NoReliefString Title {} Main Case message of SingleClic : Begin End End