Mercurial > urweb

view tests/tbody.ur @ 1132:d4cd54a4ea06

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
First attempt to switch to Automake, to get shared libraries built in OSX
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 Jan 2010 09:56:08 -0500
parents 0f7e2cca6d9b
children
line wrap: on
line source
fun main () : transaction page =
    s <- source [];
    entry <- source "";
    return <xml><body>
      <table>
        <dyn signal={s <- signal s;
                     return (List.mapX (fn s => <xml><tr><td>{[s]}</td></tr></xml>) s)}/>
      </table>

      Add one: <ctextbox source={entry}/> <button onclick={e <- get entry;
                                                           v <- get s;
                                                           set s (e :: v)}/>
    </body></xml>