sbool dm_SimpleCRUD_searcher = true;

sclass dm_SimpleCRUD<A> {
  DynModule module;
  L<A> theList;
  Class<A> cc;
  JTable table;
  JPanel buttons, panel;
  O renderer; // optional, func(A) -> Map
  S hID = "ID";
  LS fields;

  *(DynModule *module, L<A> *theList, Class<A> *cc) {}
  
  JPanel make() {
    // next line not in swing part to allow passing arguments
    // from outside like showConceptsTable_afterUpdate
    table = makeConceptsTable(cc, wrapRenderer(renderer));
    swing {
      panel = centerAndSouth(SimpleCRUD_searcher ? tableWithSearcher(table) : table, buttons = jRightAlignedLine(
        jbutton("Add...", r { newConcept() }),
        tableDependButton(table, jbutton("Edit", r {
          editConcept(selectedConcept())
        })),
        tableDependButton(table, jbutton("Delete", r {
          final L<A> l = selectedConcepts();
          withDBLock(r { for (A c : l) c.delete() });
        }))));
      
      O fEdit = voidfunc(int row) {
        editConcept((A) getConcept(toLong(getTableCell(table, row, 0))))
      };
      tablePopupMenuItem(table, "Edit...", fEdit);
      onDoubleClick(table, fEdit);
    }
    ret panel;
  }
  
  O wrapRenderer(fO renderer) {
    ret renderer == null ? null : func(A a) {
      putAll(litorderedmap(hID, str(a.id)), (Map) callF(renderer, a))
    };
  }
  
  void newConcept {
    final A c = nu(cc);
    final Map<S, JComponent> map = makeComponents(c);
    Runnable r = r {
      saveData(c, map);
      theList.add(c); module.change();
    };
    showFormTitled("New " + shortClassName(cc), arrayPlus(mapToObjectArray(map), r));
  }

  void editConcept(final A c) {
    if (c == null) ret;
    final Map<S, JComponent> map = makeComponents(c);
    Runnable r = r { saveData(c, map); module.change(); };
    showFormTitled("Edit " + shortClassName(cc) + " #" + c.id, arrayPlus(mapToObjectArray(map), r));
  }
  
  A selectedConcept() {
    ret (A) getConcept(toLong(selectedTableCell(table, 0)));
  }
  
  L<A> selectedConcepts() {
    int[] rows = table.getSelectedRows();
    new L<A> l;
    for (int row : rows)
      l.add((A) getConcept(toLong(getTableCell(table, row, 0))));
    ret l;
  }
  
  Map<S, JComponent> makeComponents(A c) {
    Map<S, JComponent> map = litorderedmap();
    makeComponents(c, map);
    ret map;
  }
  
  JComponent fieldComponent(A c, S field) {
    Class type = getFieldType(cc, field);
    O value = getOpt(c, field);
    //print("Field type: " + field + " => " + type);
    if (type == bool.class)
      ret jCenteredCheckBox(isTrue(value));
    else try {
      ret autoComboBox(structureOrText_crud(value), new TreeSet<S>(map structureOrText_crud(collect(list(cc), field))));
    } catch e {
      printException(e);
      ret jTextField(structureOrText_crud(value));
    }
  }
  
  void saveComponent(A c, S field, JComponent comp) {
    comp = unwrap(comp);
    if (comp instanceof JTextComponent)
      setOpt(c, field, convertToField(getTextTrim((JTextComponent) comp), cc, field));
    else if (comp instanceof JComboBox)
      setOpt(c, field, convertToField(getTextTrim((JComboBox) comp), cc, field));
    else if (comp instanceof JCheckBox)
      setOpt(c, field, isChecked((JCheckBox) comp));
    /*ifclass ImageChooser
      else if (comp instanceof ImageChooser)
        cUpdatePNGFile(c, field, comp/ImageChooser.getImage(), false);
    endif*/
  }
  
  L<S> fields() {
    if (fields != null) ret fields;
    ret fieldsInOrder(cc);
  }
  
  // override the following two methods to customize edit window
  
  void makeComponents(A c, Map<S, JComponent> map) {
    for (S field : fields())
      map.put(field, fieldComponent(c, field));
  }
  
  void saveData(A c, Map<S, JComponent> components) {
    for (S field : keys(components))
      saveComponent(c, field, components.get(field));
  }
}

Began life as a copy of #1006540