persistable sclass HTMLForm {
  new L<Row> rows;
  S tableClass = "responstableForForms";
  new SS hiddenValues;
  
  bool renderForm = true; // render <form> tag
  S formAction; // action URL of <form>
  
  persistable asclass Row {
    S label; // HTML
    
    abstract O contents(); // HTML
  }
  
  persistable sclass LiteralRow extends Row {
    S contents;
    
    *(S *label, S *contents) {}
    
    O contents() { ret contents; }
  }
  
  S css() {
    ret eq(tableClass, "responstableForForms") ? hcss_responstableForForms() : "";
  }
  
  S get() { ret hcss(css()) + html(); }
  
  S html() {
    LLS matrix = map(rows, row -> ll(row.label, strOrEmpty(row.contents())));
    S table = htableRaw_valignTop(matrix, empty(tableClass) ? litparams(border := 1, cellpadding := 4) : litparams(class := tableClass));
    table += hhiddenMulti(hiddenValues);
    ret renderForm ? hpostform(table, action := formAction) : table;
  }
  
  void add(S label, O contents) {
    rows.add(new LiteralRow(label, strOrEmpty(contents)));
  }
  
  void addButton(S text) {
    add("", hsubmit(text));
  }
  
  void addHidden(S name, S value) {
    hiddenValues.put(name, value);
  }
}