Mercurial > urweb
diff tests/crud1.ur @ 360:c1e96b387115
Syntax highlighting for embedded XML
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 14 Oct 2008 16:37:43 -0400 |
parents | 9390c55b9f1f |
children | 24a31b35e08f |
line wrap: on
line diff
--- a/tests/crud1.ur Mon Oct 13 15:31:02 2008 -0400 +++ b/tests/crud1.ur Tue Oct 14 16:37:43 2008 -0400 @@ -2,33 +2,33 @@ 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 = _}