view tests/crud1.ur @ 336:34847732cefc

Crud gets column headings
author Adam Chlipala <adamc@hcoop.net>
date Sat, 13 Sep 2008 20:04:28 -0400
parents e457d8972ff1
children 075b36dbb1a4
line wrap: on
line source
table t1 : {Id : int, A : int, B : string, C : float, D : bool}

open Crud.Make(struct
        val tab = t1

        val title = "Crud1"

        val cols = {
                A = {Nam = "A", Show = txt _},
                B = {Nam = "B", Show = txt _},
                C = {Nam = "C", Show = txt _},
                D = {Nam = "D", Show = txt _}
        }
end)