From 011a2d458a677c5db5c2fdf0684eeecaf688d6d9 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sun, 3 May 2009 16:00:43 -0400
Subject: crud3 demo

---
 demo/crud3.ur | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 demo/crud3.ur

(limited to 'demo/crud3.ur')

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)
-- 
cgit v1.2.3