Mercurial > urweb

view tests/vlad4.ur @ 1549:355a928871ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Gracefully accept browser's refusal to let us set certain AJAX headers
author Adam Chlipala <adam@chlipala.net>
date Fri, 26 Aug 2011 09:51:38 -0400
parents fe470db7feea
children
line wrap: on
line source
fun main () : transaction page =
    s <- source "";
    return <xml><body>
      <ctextbox source={s} value="123" onchange={s <- get s; alert (s ^ "!")}/>
      <dyn signal={s <- signal s; return (txt s)}/>
    </body></xml>