!7

module OtherModuleCRUD > DynObjectTable {
  S otherModuleID;
  S moduleLibID = "#1020938/AskYesNoQuestions";
  
  start {
    dm_vmBus_onMessage_q('conceptsChanged, voidfunc(O concepts) {
      if (concepts == dm_call(dm_findModule(moduleLibID), 'conceptsObject)) updateData()
    });
  }
  
  afterVisualize { updateData(); }
  
  void updateData {
    if (table() == null) ret; // Only update when visible
    L concepts = dm_callModule(dm_requireModule(moduleLibID), 'concepts);
    print("Have " + n2(concepts, "concept"));
    setData(map(concepts, func(O c) -> Map {
      Map map = litorderedmap(id := str(getLong(c, 'id)));
      for (S field : conceptFields_gen(c))
        mapPut(map, field, getOpt(c, field));
      ret map;
    }));
  }
}