Mercurial > urweb
view tests/doubleDyn.ur @ 1698:aaae710417df
Remove seemingly inaccurate part of comment (perhaps clarified version can be added back in later)
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Tue, 13 Mar 2012 11:59:03 -0400 |
parents | d05299e561c8 |
children |
line wrap: on
line source
style linktitle style topic fun main () : transaction page = text <- source "Lorem ipsum dolor sit amet"; cls <- source linktitle; return <xml> <head> <title>Dynamic CSS class test</title> <link href="http://adam.chlipala.net/style.css" rel="stylesheet" type="text/css" media="all"/> </head> <body> <dyn signal={t <- signal text; return <xml><div dynClass={signal cls}>{[t]}</div></xml>}/> <div dynClass={signal cls}> <dyn signal={t <- signal text; return (txt t)}/> </div> <button value="Style1" onclick={set cls linktitle}/> <button value="Style2" onclick={set cls topic}/> <ctextbox source={text}/> </body> </xml>