From 98c7a9c7a897d8a5f7a483aa15bf211c9769dad4 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 14 Oct 2008 16:37:43 -0400
Subject: Syntax highlighting for embedded XML

---
 tests/crud1.ur | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'tests/crud1.ur')

diff --git a/tests/crud1.ur b/tests/crud1.ur
index 2ed2b9e7..80b2b103 100644
--- a/tests/crud1.ur
+++ b/tests/crud1.ur
@@ -2,33 +2,33 @@ table t1 : {Id : int, A : int, B : string, C : float, D : bool}
 
 val a = {Nam = "A",
          Show = txt _,
-         Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
+         Widget = fn nm :: Name => <xml><textbox{nm}/></xml>,
          WidgetPopulated = fn (nm :: Name) n =>
-                              <lform><textbox{nm} value={show _ n}/></lform>,
+                              <xml><textbox{nm} value={show _ n}/></xml>,
          Parse = readError _,
          Inject = _}
 
 val b = {Nam = "B",
          Show = txt _,
-         Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
+         Widget = fn nm :: Name => <xml><textbox{nm}/></xml>,
          WidgetPopulated = fn (nm :: Name) s =>
-                              <lform><textbox{nm} value={s}/></lform>,
+                              <xml><textbox{nm} value={s}/></xml>,
          Parse = readError _,
          Inject = _}
 
 val c = {Nam = "C",
          Show = txt _,
-         Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
+         Widget = fn nm :: Name => <xml><textbox{nm}/></xml>,
          WidgetPopulated = fn (nm :: Name) n =>
-                              <lform><textbox{nm} value={show _ n}/></lform>,
+                              <xml><textbox{nm} value={show _ n}/></xml>,
          Parse = readError _,
          Inject = _}
 
 val d = {Nam = "D",
          Show = txt _,
-         Widget = fn nm :: Name => <lform><checkbox{nm}/></lform>,
+         Widget = fn nm :: Name => <xml><checkbox{nm}/></xml>,
          WidgetPopulated = fn (nm :: Name) b =>
-                              <lform><checkbox{nm} checked={b}/></lform>,
+                              <xml><checkbox{nm} checked={b}/></xml>,
          Parse = fn x => x,
          Inject = _}
 
-- 
cgit v1.2.3