adamc@781: table t : {Id : int, Text : string}
adamc@781:   PRIMARY KEY Id
adamc@781: 
adamc@781: open Crud.Make(struct
adamc@781:                    val tab = t
adamc@781:                              
adamc@781:                    val title = "Crud3"
adamc@781: 
adamc@781:                    val cols = {Text = {Nam = "Text",
adamc@781:                                        Show = txt,
adamc@823:                                        Widget = (fn [nm :: Name] => <xml>
adamc@781:                                          <subform{nm}>
adamc@781:                                            <textbox{#A}/>
adamc@781:                                            <textbox{#B}/>
adamc@781:                                          </subform>
adamc@781:                                        </xml>),
adamc@823:                                        WidgetPopulated = (fn [nm :: Name] s => <xml>
adamc@781:                                          <subform{nm}>
adamc@781:                                            <textbox{#A} value={s}/>
adamc@781:                                            <textbox{#B}/>
adamc@781:                                          </subform>
adamc@781:                                        </xml>),
adam@1303:                                        Parse = (fn p : {A : string, B : string} => p.A ^ p.B),
adamc@781:                                        Inject = _
adamc@781:                                       }
adamc@781:                               }
adamc@781:                end)