Mercurial > urweb

view tests/focus.ur @ 2238:7f92d70a326e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Only use string (rather than numeric, etc.) primitives in parsed SQL statements.
author Ziv Scully <ziv@mit.edu>
date Mon, 06 Jul 2015 01:31:04 -0700
parents ffd7ed3bc0b7
children
line wrap: on
line source
fun main () : transaction page =
    id1 <- fresh;
    id2 <- fresh;
    s1 <- source "";
    s2 <- source "";
    which <- source False;

    return <xml><body>
      <ctextbox id={id1} source={s1}/>
      <ctextbox id={id2} source={s2}/>
      <button onclick={fn _ => w <- get which;
                          set which (not w);
                          giveFocus (if w then id1 else id2)}/>
    </body></xml>