Mercurial > urweb
view tests/crud1.ur @ 352:2205d5cb416a
Get type definitions font-locking again
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sun, 12 Oct 2008 10:30:08 -0400 |
parents | 3a1e36b14105 |
children | 9390c55b9f1f |
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 _, Widget = fn nm :: Name => <lform><textbox{nm}/></lform>, WidgetPopulated = fn (nm :: Name) n => <lform><textbox{nm} value={show _ n}/></lform>, Parse = readError _, Inject = _}, B = {Nam = "B", Show = txt _, Widget = fn nm :: Name => <lform><textbox{nm}/></lform>, WidgetPopulated = fn (nm :: Name) s => <lform><textbox{nm} value={s}/></lform>, Parse = readError _, Inject = _ }, C = {Nam = "C", Show = txt _, Widget = fn nm :: Name => <lform><textbox{nm}/></lform>, WidgetPopulated = fn (nm :: Name) n => <lform><textbox{nm} value={show _ n}/></lform>, Parse = readError _, Inject = _ }, D = {Nam = "D", Show = txt _, Widget = fn nm :: Name => <lform><checkbox{nm}/></lform>, WidgetPopulated = fn (nm :: Name) b => <lform><checkbox{nm} checked={b}/></lform>, Parse = fn x => x, Inject = _} } end)