!7

sclass RememberAllWords > DynPrintLog {
  new LinkedHashSet<S> wordSet;
  int interval = 10000;
  
  void start {
    doEvery(interval, r doIt);
  }
  
  void doIt {
    temp enter();
    please include function getText.

    new Set<S> wordsOnScreen;
    
    for (Component c : allComponentsInWindows()) {
      S text = (S) callOpt(mc(), 'getText, c); // Reflection abuse!
      addAll(wordsOnScreen, words2_noNumbers(text));
    }
    
    Collection<S> newWords = setMinusSet_syncOnLatter(wordsOnScreen, wordSet);
    newWords = onlyStringsShorterThan(100, newWords);
    
    if (nempty(newWords)) {
      syncAddAll(wordSet, newWords);
      print("Learned new words: " + shorten(joinWithComma(newWords), 200));
      change();
    }
    
    print(n2(l(wordSet), "word"));
  }
}