diff options
author | Benjamin Barenblat <bbaren@mit.edu> | 2017-07-23 09:50:04 -0400 |
---|---|---|
committer | Benjamin Barenblat <bbaren@mit.edu> | 2017-07-23 09:50:04 -0400 |
commit | 0cccdb0ae595cd7e3e136e984ac7b95b99f71a53 (patch) | |
tree | 491d3b13813610943c60460d3e178d3a73916346 /demo/crud3.ur |
Import urweb_20170720+dfsg.orig.tar.gz
[dgit import orig urweb_20170720+dfsg.orig.tar.gz]
Diffstat (limited to 'demo/crud3.ur')
-rw-r--r-- | demo/crud3.ur | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/demo/crud3.ur b/demo/crud3.ur new file mode 100644 index 0000000..5be035d --- /dev/null +++ b/demo/crud3.ur @@ -0,0 +1,27 @@ +table t : {Id : int, Text : string} + PRIMARY KEY Id + +open Crud.Make(struct + val tab = t + + val title = "Crud3" + + val cols = {Text = {Nam = "Text", + Show = txt, + Widget = (fn [nm :: Name] => <xml> + <subform{nm}> + <textbox{#A}/> + <textbox{#B}/> + </subform> + </xml>), + WidgetPopulated = (fn [nm :: Name] s => <xml> + <subform{nm}> + <textbox{#A} value={s}/> + <textbox{#B}/> + </subform> + </xml>), + Parse = (fn p : {A : string, B : string} => p.A ^ p.B), + Inject = _ + } + } + end) |