!7

concept BEAObject {
}

cmodule2 GazelleBEA > GazelleExamples {
  void init {
    super.init();
    botName = heading = adminName = "Gazelle BEA";
    set enableVars;
    set showTalkToBotLink;
    unset phoneNumberSpecialInputField;
  }
  
  L<Class> crudClasses(Req req) {
    ret listPlus(super.crudClasses(req), BEAObject);
  }
  
  S authFormHeading() {
    ret h3("Gazelle BEA");
  }
  
  void makeFramer(Req req) {
    super.makeFramer(req);
      req.framer.renderTitle = () -> h1(ahref(baseLink + "/", "Gazelle BEA")
      + " " + htmlEncode2(req.framer.title));
  }

  <A extends Concept> HCRUD makeCRUD(Class<A> c, Req req, HTMLFramer1 framer) {
    HCRUD crud = super.makeCRUD(c, req, framer);

    if (c == BEAObject) {
      crud.massageFormMatrix = (map, matrix) -> {
        matrix.add(ll("Add field", htable_noEncode(ll(
          ll("Name:", htextfield newField_name()),
          ll("Value:", htextfield newField_value())))));
      };
    }
    
    ret crud;
  }
} // end of module

!include early #1029913 // gazelle.rocks