Mercurial > urweb

comparison demo/crud3.ur @ 823:669ac5e9a69e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Demo compiles with pattern-matching-fu
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 May 2009 10:35:25 -0400
parents c884a42599f3
children c7b9a33c26c8
comparison
equal deleted inserted replaced
822:d4e811beb8eb 823:669ac5e9a69e
6 6
7 val title = "Crud3" 7 val title = "Crud3"
8 8
9 val cols = {Text = {Nam = "Text", 9 val cols = {Text = {Nam = "Text",
10 Show = txt, 10 Show = txt,
11 Widget = (fn (nm :: Name) => <xml> 11 Widget = (fn [nm :: Name] => <xml>
12 <subform{nm}> 12 <subform{nm}>
13 <textbox{#A}/> 13 <textbox{#A}/>
14 <textbox{#B}/> 14 <textbox{#B}/>
15 </subform> 15 </subform>
16 </xml>), 16 </xml>),
17 WidgetPopulated = (fn (nm :: Name) s => <xml> 17 WidgetPopulated = (fn [nm :: Name] s => <xml>
18 <subform{nm}> 18 <subform{nm}>
19 <textbox{#A} value={s}/> 19 <textbox{#A} value={s}/>
20 <textbox{#B}/> 20 <textbox{#B}/>
21 </subform> 21 </subform>
22 </xml>), 22 </xml>),