sclass G22LAScriptIDE<A extends G22LAScript> is Swingable {

  settable G22Utils g22utils;

  settable S noScriptSelectedMsg = "Please select or create a script to edit it";

  gettable A script;

  transient SingleComponentPanel scp;

  transient JLeftArrowScriptIDE[] ides;

  transient JExtendedTabbedPane tabs;

  transient JButton btnSave, btnDiscardChanges, btnClearForAutoRun;

  transient CollapsibleLeftPanel collapsibleResultPanel;

  transient G22ScriptResultPanel resultPanel;

  transient Mode lastVisibleMode;

  settable bool preferEditMode = true;

  abstract class Mode {

    G22ScriptMode modeEnum;

    S name;

    gettable bool editable;

    *(G22ScriptMode *modeEnum, S *name, bool *editable) {}

    simplyCached abstract IVarWithNotify<S> scriptVar();

    void addButtons(JPanel panel) {}

    toString { ret name; }

    S tabName() { ret scriptVar().has() ? name : "Not " + firstToLower(name); }

  }

  class ModeClearedForAutoRun > Mode {

    *() { super(G22ScriptMode.autoRunnable, "Cleared for auto-run", false); }

    IVarWithNotify<S> scriptVar_load() {

      var var = new VirtualVar<S>(

        -> script.codeForAutoRun(),

        null /*text -> script.setClearedForAutoRun(text == null ?: new ClearForAutoRun(text))*/);

      addWeakChangeListener(script.varClearedForAutoRun(), var);

      ret var;

    }

    void addButtons(JPanel panel) {

      panel.add(jbutton("Forget auto-run code", rThread forgetAutoRunCode));

    }

  }

  class ModeSaved > Mode {

    *() { super(G22ScriptMode.saved, "Saved", false); }

    IVarWithNotify<S> scriptVar_load() {

      ret getterVarOnly(script.varText());

    }

    void addButtons(JPanel panel) {

      panel.add(btnClearForAutoRun = jbutton("Clear for auto-run", rThread clearForAutoRun));

      panel.add(jbutton("Forget code", rThread forgetSaved));

    }

  }

  class ModeEdit > Mode {

    *() { super(G22ScriptMode.edit, "Edit", true); }

    IVarWithNotify<S> scriptVar_load() {

      var var = new VirtualVar<S>(

        -> script.textForEditing(),

        text -> script.receiveEditingText(text)

      );

      addWeakChangeListener(script, var);

      ret var;

    }

    void addButtons(JPanel panel) {

      panel.add(btnSave = jbutton("Save", rThread saveEdit));

      panel.add(btnDiscardChanges = jbutton("Discard changes", rThread discardEdit));

    }

  }

  transient new ModeEdit modeEdit;

  transient new ModeSaved modeSaved;

  transient new ModeClearedForAutoRun modeClearedForAutoRun;

  transient L<Mode> modes = ll(

    modeEdit,

    modeSaved,

    modeClearedForAutoRun

  );

  *(G22Utils *g22utils) {}

  cachedVisualize {

    ides = new JLeftArrowScriptIDE[l(modes)];

    if (scp == null) scp = singleComponentPanel();

    loadScript(script);

    ret scp;

  }

  void setScript(A script) {

    if (this.script != script)

      if (this.script != null)

        fail("Can't set script after initialisation");

      else

        loadScript(script);

  }

  void loadScript(A script) {

    this.script = script;

    if (scp == null) ret;

    if (script == null)

      scp.set(jcenteredlabel(noScriptSelectedMsg()));

    else {

      tabs = jExtendedTabs();

      resultPanel = new G22ScriptResultPanel;

      collapsibleResultPanel = new CollapsibleLeftPanel(false, "Output", resultPanel.visualize(), tabs.visualize());

      collapsibleResultPanel.sidePanelMargins = c -> withTopAndLeftMargin(c);

      // This places tabs vertically at the right hand side...

      // (not what we want)

      //setTabPlacement(JTabbedPane.RIGHT, tabs);

      for (int i, Mode mode : unpair iterateWithIndex(modes)) {

        var ide = ides[i] = g22utils.leftArrowIDE();

        ide.withResultPanel(false);

        ide.resultPanel = resultPanel;

        ide.collapsibleResultPanel = collapsibleResultPanel;

        ide.wrapSection = c -> wrapEditorSection(mode, c);

        ide.newCompileResult = -> script.newCompileResult();

        ide.makeParser = -> script.makeParser();

        modifyIDE(ide);

        var varScript = mode.scriptVar();

        ide.lvScript(varWithNotifyToLiveValue(S.class, varScript));

        addTab(tabs, str(mode));

        mode.addButtons(ide.buttons());

        ide.visualize();

        ide.setEditable(mode.editable());

        varScript.onChangeAndNow(text ->

          setTab(tabs, i, text == null ? jcenteredlabel("Empty") : wrapIDE(mode, ide)));

        ide.popDownButton.onFillingMenu(menu ->

          addMenuItem(menu, "Show History", rThread showHistory));

      }

      script.onChangeAndNow(r {

        for (int i, Mode mode : unpair iterateWithIndex(modes))

          setTabTitle(tabs, i, mode.tabName());

        setEnabled(script.isEditing(), btnSave, btnDiscardChanges);

        setEnabled(btnClearForAutoRun, script.isSavedDistinctFromAutoRunVersion());

        for (ide : ides)

          ide.sectionTitle(str(script));

      });

      onTabSelectedAndNow(tabs, -> {

        var mode = visibleMode();

        if (lastVisibleMode != null && lastVisibleMode != mode) {

          // Move selected IDE to same position as previous IDE

          var lastIDE = ide(lastVisibleMode);

          var ide = visibleIDE();

          awtLater(0.5, -> {

            LineAndColumn lac = caretLineAndCol(lastIDE.textArea());

            moveCaretToLineAndCol(ide.textArea(), lac);

            setEnclosingViewPosition(ide.textArea(), enclosingViewPosition(lastIDE.textArea()));

            focus(ide.textArea());

          });

        }

        lastVisibleMode = mode;

        tabs.setComponentBesideTabs(

          mode != modeEdit

            ? jfullcenter(withRightMargin(jbutton("Edit script", -> setMode(modeEdit))))

            : null);

      });

      setMode(preferEditMode || script.isEditing() ? modeEdit : modeSaved);

      scp.set(collapsibleResultPanel);

    }

  }

  swappable JComponent wrapEditorSection(Mode mode, JComponent editorSection) {

    /*if (mode != modeEdit)

      ret withTopMargin(northAndCenterWithMargin(

        withRightMargin(jline(jbutton("Edit script", -> setMode(modeEdit)))),

        editorSection));

    else*/

      ret editorSection;

  }

  swappable JComponent wrapIDE(Mode mode, JLeftArrowScriptIDE ide) {

    ret ide.visualize();

  }

  event settingUpIDE(JLeftArrowScriptIDE ide);

  swappable void modifyIDE(JLeftArrowScriptIDE ide) {

    ide.showTitle(false);

    settingUpIDE(ide);

  }

  void saveEdit {

    script.completeEdit();

    if (preferEditMode)

      focusTextArea();

    else

      setMode(modeSaved);

  }

  JLeftArrowScriptIDE ide(Mode mode) {

    if (ides == null) visualize();

    ret _get(ides, indexOf(modes, mode));

  }

  RSyntaxTextArea visibleTextArea() {

    var ide = visibleIDE();

    ret ide?.textArea();

  }

  void setMode(Mode mode) {

    var caretPos = caretLineAndCol(visibleTextArea());

    printVars("setMode", +caretPos);

    selectTab(tabs, indexOf(modes, mode));

    var ide = visibleIDE();

    printVars("setMode", +ide, mode := visibleMode());

    ide.goToPosition_noFocus(caretPos);

    if (mode == modeEdit)

      focusTextArea();

  }

  void focusTextArea {

    focus(visibleTextArea());

  }

  // get currently visible mode

  Mode visibleMode() {

    ret _get(modes, indexOfSelectedTab(tabs));

  }

  JLeftArrowScriptIDE visibleIDE() {

    ret ide(visibleMode());

  }

  void discardEdit {

    setMode(modeSaved);

    script.discardEdit();

  }

  void forgetSaved {

    script.setTextWithHistory(null);

  }

  void clearForAutoRun {

    script.clearForAutoRun();

    setMode(modeClearedForAutoRun);

  }

  void forgetAutoRunCode {

    script.forgetAutoRunCode();

  }

  private void selfTest_impl {

    new G22LAScript script;

    setScript((A) script);

    ide(modeEdit).setText("hello");

    assertEqualsVerbose(null, script.text());

    assertEqualsVerbose("hello", script.editedText());

    saveEdit();

    assertEqualsVerbose("hello", script.text());

    assertEqualsVerbose(null, script.editedText());

  }

  static void selfTest(G22Utils g22utils) {

    new G22LAScriptIDE(g22utils).selfTest_impl();

  }

  void showHistory {

    showText("Edit history of " + script, loadTextFile(script.historyFile()));

  }

  void goToPositionInAllModes(LineAndColumn lac) {

    for (ide : ides)

      ide?.goToPosition_noFocus(lac);

  }

}