declare
H0 H1 H2 H3 H4 H5 H6
ViewList=
  [r(refresh:proc {$ T} skip end
     spec:label(handle:H0 glue:nswe bg:white)
     surface:0#0)

   r(refresh:proc {$ T} {H1 set(text:{FmtTime T})} end
     spec:label(handle:H1 glue:nswe bg:white)
     surface:40#10)

   r(refresh:proc {$ T} {H2 set(text:{FmtTimeS T})} end
     spec:label(handle:H2 glue:nswe bg:white)
     surface:80#10)

   r(refresh:
        proc {$ T}
           {H3 set(text:{FmtTime T}#'\n'#{FmtDate T})} end
     spec:label(handle:H3 glue:nswe bg:white)
     surface:40#30)

   r(refresh:
        proc {$ T}
           {H4 set(text:{FmtTimeS T}#'\n'#{FmtDateY T})}
        end
     spec:label(handle:H4 glue:nswe bg:white)
     surface:80#30)

   r(refresh:
        proc {$ T}
           {H5 set(text:{FmtTimeS T}#'\n'#{FmtDay T}#", "#
                        {FmtDateY T})} end
     spec:label(handle:H5 glue:nswe bg:white)
     surface:130#30)

   r(refresh:
        proc {$ T}
           {H6 set(text:{FmtTimeS T}#'\n'#{FmtDay T}#", "#
              T.mDay#" "#{FmtMonth T}#" "#(1900+T.year))}
        end
     spec:label(handle:H6 glue:nswe bg:white)
     surface:180#30)]