view demo/crud3.ur @ 2235:0aae15c2a05a

Refactored a lot and fixed an and/or swap, but still not good on current test.
author Ziv Scully <ziv@mit.edu>
date Mon, 29 Jun 2015 01:33:47 -0700
parents c7b9a33c26c8
children
line wrap: on
line source
table t : {Id : int, Text : string}
  PRIMARY KEY Id

open Crud.Make(struct
                   val tab = t
                             
                   val title = "Crud3"

                   val cols = {Text = {Nam = "Text",
                                       Show = txt,
                                       Widget = (fn [nm :: Name] => <xml>
                                         <subform{nm}>
                                           <textbox{#A}/>
                                           <textbox{#B}/>
                                         </subform>
                                       </xml>),
                                       WidgetPopulated = (fn [nm :: Name] s => <xml>
                                         <subform{nm}>
                                           <textbox{#A} value={s}/>
                                           <textbox{#B}/>
                                         </subform>
                                       </xml>),
                                       Parse = (fn p : {A : string, B : string} => p.A ^ p.B),
                                       Inject = _
                                      }
                              }
               end)