Mercurial > urweb
view tests/doubleDyn.ur @ 1840:146ec8e90063
Add some name-mangling rules to allow XML attribute 'name' and attributes with dashes
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Thu, 27 Dec 2012 15:34:11 -0500 |
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>