set flag AllowMetaCode.
meta-postProcess { tok_crudAutoConstructor }

abstract sclass DynCRUD<A extends Concept> extends DynModule {
  transient Class<A> conceptClass;
  transient SimpleCRUD<A> crud;
  S caseID;
  transient bool addCountToName = true, addCountToName_installed;

  *() {}
  *(Class<A> *conceptClass) {}
  
  start {
    dbWithCase(caseID); // So we can do stuff in overridden start methods
    crud = makeCRUD(); // so we can customize early
    if (addCountToName) addCountToName();
  }
  
  visualize {
    makeConceptsTable_idWidth = 0;
    showConceptsTable_afterUpdate.set(voidfunc(JTable t) {
      int n = tableColumnCount(t);
      for i to n:
        setColumnName(t, i, i == 0 ? "" : humanizeFormLabel(getColumnName(t, i)));
    });
    ret withMargin(crud.make_dontStartBots());
  }
  
  SimpleCRUD<A> makeCRUD() {
    ret SimpleCRUD<A>(db_mainConcepts(), conceptClass);
  }
  
  JTable table() { ret crud == null ? null : crud.table; }
  
  A selected() { ret crud == null ? null : crud.selectedConcept(); }
  
  void addButton(JComponent button) {
    if (crud != null) addComponent(crud.buttons, button);
  }
  void addButton(S name, O action) { addButton(jbutton(name, action)); }
  void addSelectionDependentButton(S name, O action) {
    addButton(tableDependentButton(table(), name, action));
  }
  
  void makeSortable() { // broken?
    addRowSorter(table());
    rowSorter_setComparatorForAllColumns(table(), alphaNumComparator());
  }
  
  S searchTerm() {
    ret crud == null || crud.tableSearcher == null ? null : gtt(crud.tableSearcher.tfInput);
  }
  
  void addCountToName {
    if (addCountToName_installed) ret;
    addCountToName_installed = true;
    onConceptChangeAndNow(rEnter { setModuleName(dm_originalModuleName() + " (" + conceptCount() + ")") });
  }
  
  Concepts conceptsObject() {
    ret crud.concepts;
  }
  
  // overwrite for compact modules to work
  
  <B extends Concept> L<B> list(Class<B> c) {
    ret conceptsObject().list(c);
  }
  
  // API
  
  L<A> concepts() enter { ret list(conceptClass); }
  L<A> data() { ret concepts(); }
  L<A> list() { ret concepts(); }
  
  L<Concept> conceptsOfType(S type) enter { ret conceptsObject().list(type); }
  
  // TODO: use index
  L<Concept> conceptsOfTypeWhere(S type, O[] params) enter {
    ret filterConcepts(conceptsOfType(type), params);
  }
  
  int conceptCount() enter { ret countConcepts(conceptClass); }
  
  void deleteAll() enter {
    deleteConcepts(conceptClass);
  }
  
  void addDialog() enter { crud.newConcept(); }
  
  A uniqConcept(O... params) {
    ret uniq_sync(conceptClass, params);
  }
  
  Pair<A, Bool> uniqConcept2(O... params) {
    ret uniq2_sync(conceptClass, params);
  }
  
  int cset(Concept c, O... values) {
    ret _cset(c, values);
  }
}

Began life as a copy of #1019282