!7

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

static ReliableSingleThread q = new ReliableSingleThread(f makeTranslations);

p-noconsole {
  SimpleCRUD crud = simpleCRUD(programTitle(), Statement);
  addMenu(crud.panel, "Menu!",
    "Show AI Concepts", r { startOrActivate(#1006463) },
    "Rebuild Translations", r { q.go() });
  q.go();
}

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