!7

sclass RememberAllWords > DynPrintLog {
  new LinkedHashSet<S> wordSet;
  int interval = 5000;
  
  void start {
    doEveryAndNow(interval, r doIt);
  }
  
  void doIt {
    temp enter();
    please include function getText.
    for (Component c : allComponentsInWindows()) {
      S text = (S) callOpt(mc(), 'getText, c); // Reflection abuse!
      if (nempty(text)) {
        L<S> words = words2_noNumbers(text);
        if (nempty(words)) {
          L<S> newWords = listMinusSet_syncOnSet(words, wordSet);
          if (nempty(newWords)) {
            syncAddAll(wordSet, newWords);
            print("Learned new words: " + shorten(joinWithComma(newWords), 200));
            change();
          }
        }
      }
    }
    print(n2(l(wordSet), "word"));
  }
}