transient Class<A> conceptClass;

transient SimpleCRUD<A> crud;

transient Concepts cc = db_mainConcepts();

S caseID;

transient bool addCountToName = true, addCountToName_installed;

void start_DynCRUD {

  dbWithCase(caseID); // So we can do stuff in overridden start methods

  crud = makeCRUD(); // so we can customize early

  if (addCountToName) addCountToName();

}

visualize {

  if (crud == null) start_DynCRUD();

  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 cc; }

// 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(cc, 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(cc, conceptClass); }

void deleteAll() enter {

  deleteConcepts(cc, conceptClass);

}

void addDialog() enter { crud.newConcept(); }

A uniqConcept(O... params) {

  ret uniq_sync(cc, conceptClass, params);

}

Pair<A, Bool> uniqConcept2(O... params) {

  ret uniq2_sync(cc, conceptClass, params);

}

int cset(Concept c, O... values) {

  ret _cset(c, values);

}