diff tests/subforms.ur @ 759:67cd8326f743

subforms working
author Adam Chlipala <adamc@hcoop.net>
date Thu, 30 Apr 2009 13:47:46 -0400
parents 8323c1beef2e
children 16b34dc2e29c
line wrap: on
line diff
--- a/tests/subforms.ur	Thu Apr 30 11:48:56 2009 -0400
+++ b/tests/subforms.ur	Thu Apr 30 13:47:46 2009 -0400
@@ -4,7 +4,9 @@
       | Cons (r, ls) => <xml><li>{[r.A]}, {[r.B]}, {[r.Sub]}</li>{handler' ls}</xml>
 
 fun handler r = return <xml><body>
-  {[r.A]}, {handler' r.Sub}, {[r.C]}
+  {[r.A]}<br/>
+  {handler' r.Sub}
+  {[r.C]}
 </body></xml>
 
 fun main () = return <xml><body>
@@ -16,6 +18,12 @@
         <textbox{#B}/><br/>
         <textbox{#Sub}/><br/>
       </entry>
+
+      <entry>
+        <textbox{#A}/><br/>
+        <textbox{#B}/><br/>
+        <textbox{#Sub}/><br/>
+      </entry>
     </subforms>
     <textbox{#C}/><br/>
     <submit action={handler}/>