RexxGauge
BGNDCOL=CCCCCC;TEXTCOL=000084;FONT=9.WarpSans;COLOR1=BFE1FF;COLOR2=CCC5FF;COLOR3=7F7FFF;SCRIPT=/* Clock */%0D%0A%0D%0Agauge.tooltip %3D date('W') || ', ' || date()%0D%0A%0D%0Aparse value time() with _hours ':' _minutes ':' rest%0D%0Agauge.text %3D _hours || ':' || _minutes%0D%0A%0D%0A/*%0D%0A * Hour  0         1         2%0D%0A *       012345678901234567890123%0D%0A * Color 333333322111111112233333%0D%0A *%0D%0A */%0D%0Aselect%0D%0A%09when time('H') <%3D 9 | time('H') >%3D 19 then%0D%0A%09%09gauge.3 %3D 100%0D%0A%09when time('H') <%3D 8 | time('H') >%3D 17 then%0D%0A%09%09gauge.2 %3D 100%0D%0A%09otherwise%0D%0A%09%09gauge.1 %3D 100%0D%0Aend%0D%0A;DBLCLK=/* Clock settings notebook */%0D%0A  %0D%0Aif RxFuncQuery('SysLoadFuncs') then do%0D%0A%09call RxFuncAdd 'SysLoadFuncs','RexxUtil','SysLoadFuncs'%0D%0A%09call SysLoadFuncs%0D%0Aend%0D%0A  %0D%0Acall SysSetObjectData '<WP_CLOCK>', 'OPEN%3DSETTINGS'%0D%0A%0D%0A;TITLE=Clock;HEIGHT=10;WIDTH=50;REFRESH=2000;