Mercurial > gui

view examples/countdown.ur @ 19:3a303df9ae92

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Partial generalize togglePanel solution (breaks build)
author Ron de Bruijn <rmbruijn@gmail.com>
date Fri, 23 Sep 2011 13:30:01 +0200
parents 2947170fcfd6
children
line wrap: on
line source
fun main () : transaction page =
    start <- now;
    deadline <- return (addSeconds start 60);
    cl <- Clock.create 500;
    return <xml><body onload={Clock.start cl}>
      <dyn signal={cl <- Clock.signal cl;
                   return <xml>
                     {[cl]}<br/>
                     {if cl > deadline then
                          <xml><b>Expired</b></xml>
                      else
                          <xml>{[diffInSeconds cl deadline]}</xml>}
                   </xml>}/>
    </body></xml>