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@781:                                        Widget = (fn (nm :: Name) => <xml>
adamc@781:                                          <subform{nm}>
adamc@781:                                            <textbox{#A}/>
adamc@781:                                            <textbox{#B}/>
adamc@781:                                          </subform>
adamc@781:                                        </xml>),
adamc@781:                                        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>),
adamc@781:                                        Parse = (fn p => p.A ^ p.B),
adamc@781:                                        Inject = _
adamc@781:                                       }
adamc@781:                               }
adamc@781:                end)