Mercurial > urweb

view tests/dynClassB.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 f89be9cd2087
children
line wrap: on
line source
style style1
style style2

fun main () : transaction page =
    toggle <- source False;
    return <xml>
      <head>
	<link rel="stylesheet" type="text/css" href="/style.css"/>
      </head>
      <body dynClass={b <- signal toggle;
                      return (if b then style1 else style2)}
            dynStyle={b <- signal toggle;
                      return (if b then STYLE "margin: 100px" else STYLE "")}>
        Body
	<button onclick={fn _ => b <- get toggle; set toggle (not b)}>TOGGLE</button>
      </body>
    </xml>