abstract sclass DynRecordingTextArea extends DynModule {

  S text;

  switchable S title;

  switchable bool wordWrap;

  S globalID = aGlobalID();

  transient JTextArea ta;

  transient EditRecorder recorder;

  transient ReliableSingleThread rstPersistText = rstWithDelay(1000, r persistText);

  transient JButton popDownButton;

  // We have auto-save of deleted modules

  //bool warnOnDelete() { ret nempty(text); }

  File logFile() { ret javaxDataDir("Text Area Logs/" + globalID); }

  start {

    dm_watchFieldAndNow title(r { setModuleName(title) });

    dm_watchField wordWrap(r {

      enableWordWrapForTextArea(ta, wordWrap);

      if (ta != null && wordWrap) dm_reloadModule();

    });

    dm_vmBus_onMessages_q(ll("modulePoppedOut", "modulePoppedIn"), (m, myFrame) -> {

      if (dm_isMe(m))

        adjustUIForPoppedOutWindow();

    });

  }

  visualize {

    ta = jenableUndoRedo(typeWriterTextArea(text));

    enableWordWrapForTextArea(ta, wordWrap);

    logQuoted(logFile(), "text: " + text);

    recorder = new EditRecorder(voidfunc(EREvent e) {

      logStructure(logFile(), e);

    });

    recorder.text = text;

    main.onChange(ta, rstPersistText);

    ret jscroll(setOpaqueBackground(Color.white, withMargin(ta)));

  }

  void persistText enter {

    if (ta == null) ret;

    Pair<S, Int> p = textAndCaretPosition(ta);

    recorder.update(p.a);

    recorder.updateCaret(p.b);

    print("persistText " + now());

    setField(text := getText(ta));

  }

  void unvisualize {

    persistText();

    super.unvisualize();

  }

  void setText(S text) { main.setText(ta, text); }

  S text() { ret or(main.getText(ta), text); }

  S _modifyStructForDuplication(S struct) {

    // TODO: could fail if module gets more complex

    ret jreplace_first(struct, "globalID=*", "globalID=" + quote(aGlobalID()));

  }

  enhanceFrame {

    internalFrameMenuItem(f, "Global ID: " + globalID, null);

  }

  void adjustUIForPoppedOutWindow swing {

    if ((popDownButton != null) != dm_moduleIsPoppedOut(me())) {

      if (popDownButton != null) {

        removeFromParent(getParent(popDownButton));

        popDownButton = null;

        ret;

      }

      Window window = cast getWindow(dm_vis());

      var popBackInButton = findButton(window, "Pop Back In");

      var parent = getParent(popBackInButton);

      print(+parent);

      removeFromParent(parent); // hide controls

      popDownButton = jPopDownButton_noText(

        "Pop Back In", r { dm_popInModule(me()) },

        jCheckBoxMenuItem("Always On Top", isAlwaysOnTop(window),

          rEnter dm_toggleAlwaysOnTop),

      );

      replaceComponent(ta, -> centerAndEastWithMargin(ta, vstackWithSpacing(popDownButton)));

    }

  }

}