diff options
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 00000000..efc6c06e --- /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 => p.A ^ p.B), + Inject = _ + } + } + end) |