!7

concept Statement {
  S globalID = aGlobalID(), text;
  S possibleEnglishTranslation;
}

static Q q;

p-noconsole {
  SimpleCRUD<Statement> crud = new SimpleCRUD<Statement>(Statement);
  cfrud.renderer = func(Statement s) { litorderedmap("English (machine-generated)" := s.possibleEnglishTranslation, "Computer Language" := s.text) };
  crud.show(programTitle());
  
  addMenu(crud.panel, "Menu!",
    "Show AI Concepts", r { startOrActivate(#1006463) },
    "Rebuild Translations", r { q.add(r { makeTranslations(true) }) });
  q = new Q(true);
  q.add(r { makeTranslations(false) });
}

svoid makeTranslations(bool all) {
  for (Statement s) {
    if (all || empty(s.possibleEnglishTranslation) || eq(s.possibleEnglishTranslation, "?"))
      cset(s, possibleEnglishTranslation := orQuestionMark2(f conceptLanguageToEnglish, s.text));
  }
}