switchable S caseID;

switchable float tableFontSize = 0; // 0 for default

transient Concepts cc = db_mainConcepts();

transient Class<A> conceptClass;

transient SimpleCRUD_v2<A> crud;

transient bool addCountToName = true, addCountToName_installed;

transient bool useInternalFramesForForms = true;

void start_DynCRUD {

  ifndef NoMainConcepts // set flag to save space

  if (cc == db_mainConcepts())

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

  endifndef

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

  if (addCountToName) addCountToName();

}

JComponent visualizeWithCountInTab() {

  JComponent c = visualize();

  bindToComponent(table(), r updateTabTitle);

  onConceptChange(cc, r updateTabTitle);

  ret c;

}

void updateTabTitle {

  updateEnclosingTabTitleWithCount(table(), conceptCount());

}

visualize {

  if (crud == null) start_DynCRUD();

  if (useInternalFramesForForms)

    crud.showAForm = (title, parts) -> {

      //formLayouter1_yPlus = 35;

      JComponent form = makeForm_customLayout_b(true, formLayouter1b(), parts);

      dm_showExtraFrame(title, withRightAndBottomMargin(form),

        /*usePreferredSizeInitially := true*/);

      ret form;

    };

  crud.idWidth = 0;

  crud.tableFontSize = zeroToNull(tableFontSize);

  ret withMargin(crud.make_dontStartBots());

}

SimpleCRUD_v2<A> makeCRUD() {

  ret SimpleCRUD_v2<A>(cc, conceptClass);

}

JTable table() { ret crud?.table; }

A selected() { ret crud?.selectedConcept(); }

A getItem(int row) { ret crud?.getItem(row); }

// call these in visualize() only (after calling super.visualize())

  void addButton(JComponent button) {

    if (crud != null) addComponent(crud.buttons, button);

  }

  void addButton(S name, Runnable action) { addButton(jbutton(name, action)); }

  void addSelectionDependentButton(S name, O action) {

    addButton(tableDependentButton(table(), name, toRunnable(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(cc, rEnter { setModuleName(dm_originalModuleName() + " (" + nObjects(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);

}

<B extends Concept> L<B> list(Concepts cc, Class<B> c) {

  ret cc.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(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);

}