!7

sclass TextInFocussedComponent > DynPrintLog {
  transient S text;
  
  start {
    doEvery(5000, r {
      if (setField(text := getText_gen(getFocusOwner())))
        print("Got: " + quote(shorten(text, 100)));
    }
  }
}