!7

concept ObjectType > Named {
  S conceptClassName;
  
  toString { ret "object type " + quote(name); }
}

concept DynamicThing > Named {
  ObjectType type;
  
  toString { ret (type == null ? "?" : type.name) + " " + quote(name); }
}

cmodule DynamicClassesMultiCRUD > DynVoiceMultiCRUD {
  transient S defaultCmdsSnippetID = #1027616;
  
  L<Table> makeTables() {
    ret itemPlusList(new Table("Object Types", "object type", ObjectType), 
      map(list(ObjectType), type ->
        new Table(plural(type.name), type.name, DynamicThing, litparams(+type))));
  }
    
  transient NameBasedVoiceCRUD<ObjectType> typesCRUD;

  start {
    typesCRUD = voiceCRUDs.get(idx(ObjectType));
    
    // Update voice CRUDs when there is a new object type
    onConceptsChange(rWatcher_noRunFirstTime(
      () -> objectTypes(), names -> objectTypesChanged(names)));
  }
  
  void objectTypesChanged(LS names) enter {
    print("Updating voice CRUDs");
    remakeVoiceCRUDs();
    vmBus_send objectTypesChanged(module(), names);
  }
  
  void startSwingCRUDs {
    swingCRUDs = ll(
      pair("Object Types", CRUD(ObjectType)),
      pair("Objects", CRUD(DynamicThing)));
  }
  
  void startFrontEnd enter {
    S frontEnd = dm_showModuleWithParams("#1027602/ChatBotFrontend", backendModuleID := dm_moduleID());
    if (eq(dm_call(frontEnd, 'conceptCount), 0))
      dm_call(frontEnd, 'importCmdsFromSnippet, defaultCmdsSnippetID);
  }
  
  afterVisualize {
    addComponent(firstSwingCRUDButtons(), jbutton("Start front-end", rThread startFrontEnd));
  }
  
  // API
  
  LS objectTypes() {
    ret itemPlus("object type", collect name(list(ObjectType)));
  }
}

Began life as a copy of #1027591