Mercurial > urweb

diff tests/ctextbox.ur @ 1173:983d9b38abc7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix parsing of space-free .urp directives; use 'class' for 'c*' tags
author Adam Chlipala <adamc@hcoop.net>
date Sun, 28 Feb 2010 15:46:41 -0500
parents 5145181b02fa
children
line wrap: on
line diff
--- a/tests/ctextbox.ur	Sun Feb 28 13:06:10 2010 -0500
+++ b/tests/ctextbox.ur	Sun Feb 28 15:46:41 2010 -0500
@@ -1,7 +1,15 @@
+style foo
+
 fun main () : transaction page =
     s <- source "Initial";
-    return <xml><body>
-      <ctextbox source={s} size=5/>
+    return <xml>
+      <head>
+        <link rel="stylesheet" type="text/css" href="http://localhost/static/style.css"/>
+      </head>
+      <body>
+        <ctextbox source={s} size=5/>
+        <ctextbox class={foo} source={s}/>
 
-      <dyn signal={s <- signal s; return (cdata s)}/>
-    </body></xml>
+        <dyn signal={s <- signal s; return (cdata s)}/>
+      </body>
+    </xml>