adamc@325: table t1 : {Id : int, A : int, B : string, C : float, D : bool}
adamc@325: 
adamc@325: open Crud.Make(struct
adamc@325:         val tab = t1
adamc@325: 
adamc@325:         val title = "Crud1"
adamc@325: 
adamc@325:         val cols = {
adamc@336:                 A = {Nam = "A", Show = txt _},
adamc@336:                 B = {Nam = "B", Show = txt _},
adamc@336:                 C = {Nam = "C", Show = txt _},
adamc@336:                 D = {Nam = "D", Show = txt _}
adamc@325:         }
adamc@325: end)