[r2004-12-28 01:10:06 by afrisch] Demo

Original author: afrisch
Date: 2004-12-28 01:13:33+00:00

driver/evaluator.ml

@@ -52,7 +52,7 @@ let () =
    with End_of_file -> ());
   let prog = Buffer.contents prog in
   let res = try exec prog with Timeout -> "Timeout reached !" in
-  let res = cut 80 res in
+  let res = cut 60 res in
   print_string header;
   print_endline "<pre>";
   print_endline res;

web/demo.xml

@@ -3,27 +3,30 @@
 <title>CDuce demo</title>
 
 <box title="Demo" link="demo">
-<two-columns>
-<left>
 <xhtml>
+<table style="width:100%">
+<tr>
+<td style="width:50%">
 <input type="submit" value="Evaluate" onclick="submit('a');"/>
 <input type="button" value="Clear" onclick="clearreq('a');"/>
-<br/>
-<textarea id="areq" cols="80" rows="25">
-let x = 1;;
-</textarea>
-<br/>
-</xhtml>
-</left>
-<right>
-<xhtml>
+</td>
+<td style="width:50%">
 <input type="button" value="Clear" onclick="show_result('a','');"/>
-<br/>
+</td>
+</tr>
+<tr>
+<td>
+<textarea id="areq" cols="60" rows="25">
+[];;
+</textarea>
+</td>
+<td valign="top">
 <div id="ares"></div>
+</td>
+</tr>
+</table>
 <script src="demo.js" type="text/javascript"/>
 </xhtml>
-</right>
-</two-columns>
 </box>
 
 </page>