abstract sclass DynPrintLog extends DynModule {
  transient JTextArea ta;
  transient Lock updatePrintLog_lock = lock();
  transient StringBuffer actualPrintLog;
  
  visualize {
    JComponent section = jSection("Log", ta = moveCaretToEnd(typeWriterTextArea_noUndo(getPrintLog())));
    componentPopupMenuItem(section, "Clear", rEnter dm_clearModulePrintLog);
    ret awtEvery(section, 500, r updatePrintLog);
  }
  
  void updatePrintLog {
    // TODO: optimize
    lock updatePrintLog_lock;
    if (ta != null) setText(ta, getPrintLog());
  }
  
  JTextArea myPrintLogComponent() { ret ta; }
  
  void enableWordWrap {
    enableWordWrapForTextArea(ta);
  }
  
  S getPrintLog() {
    if (actualPrintLog == null) {
      if (printToModule())
        actualPrintLog = _printLog;
      else
        actualPrintLog = liveLocalPrintLog_realMC(this);
    }
    ret str(actualPrintLog);
  }
}

Began life as a copy of #1016205