diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-14 19:03:55 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-14 19:03:55 -0400 |
| commit | fe35c44cd34ceb2a2f02b27f56bf1607557bb89a (patch) | |
| tree | 947cb1a65fa285087e64c14a5c08a9804bc83a7a /tests/crud1.ur | |
| parent | 7b9035e69d65f463da21a82d5f35deebaf1986ac (diff) | |
Crud update form
Diffstat (limited to 'tests/crud1.ur')
| -rw-r--r-- | tests/crud1.ur | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/tests/crud1.ur b/tests/crud1.ur index fa539dd3..fb2e4854 100644 --- a/tests/crud1.ur +++ b/tests/crud1.ur @@ -17,6 +17,7 @@ open Crud.Make(struct 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 = sql_int }, @@ -24,6 +25,7 @@ open Crud.Make(struct 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 = sql_string }, @@ -31,6 +33,7 @@ open Crud.Make(struct 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 = sql_float }, @@ -38,6 +41,7 @@ open Crud.Make(struct Nam = "D", Show = txt _, Widget = fn nm :: Name => <lform><textbox{nm}/></lform>, + WidgetPopulated = fn (nm :: Name) b => <lform><textbox{nm} value={show _ b}/></lform>, Parse = readError _, Inject = sql_bool } |