adamc@325: table t1 : {Id : int, A : int, B : string, C : float, D : bool}
adamc@325: 
adamc@325: open Crud.Make(struct
adamc@350:                    val tab = t1
adamc@350:                              
adamc@350:                    val title = "Crud1"
adamc@350:                                
adamc@350:                    val cols = {
adamc@350:                        A = {Nam = "A",
adamc@350:                             Show = txt _,
adamc@350:                             Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
adamc@350:                             WidgetPopulated = fn (nm :: Name) n => <lform><textbox{nm} value={show _ n}/></lform>,
adamc@350:                             Parse = readError _,
adamc@350:                             Inject = _},
adamc@350:                        B = {Nam = "B",
adamc@350:                             Show = txt _,
adamc@350:                             Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
adamc@350:                             WidgetPopulated = fn (nm :: Name) s => <lform><textbox{nm} value={s}/></lform>,
adamc@350:                             Parse = readError _,
adamc@350:                             Inject = _
adamc@350:                            },
adamc@350:                        C = {Nam = "C",
adamc@350:                             Show = txt _,
adamc@350:                             Widget = fn nm :: Name => <lform><textbox{nm}/></lform>,
adamc@350:                             WidgetPopulated = fn (nm :: Name) n => <lform><textbox{nm} value={show _ n}/></lform>,
adamc@350:                             Parse = readError _,
adamc@350:                             Inject = _
adamc@350:                            },
adamc@350:                        D = {Nam = "D",
adamc@350:                             Show = txt _,
adamc@350:                             Widget = fn nm :: Name => <lform><checkbox{nm}/></lform>,
adamc@350:                             WidgetPopulated = fn (nm :: Name) b => <lform><checkbox{nm} checked={b}/></lform>,
adamc@350:                             Parse = fn x => x,
adamc@350:                             Inject = _}
adamc@350:                    }
adamc@350:                end)