sclass G22LAScriptIDE<A extends G22LAScript> {
  settable G22Utils g22utils;
  settable S noScriptSelectedMsg = "Please select or create a script to edit it";
  
  A script;
  
  transient SingleComponentPanel scp;
  transient JLeftArrowScriptIDE[] ides;
  transient JTabbedPane tabs;
  
  class Mode {
    S name;
    
    *(S *name, IF1<A, IVarWithNotify<S>> *scriptVar) {}
    
    swappable IVarWithNotify<S> scriptVar(A a) { null; }
    
    toString { ret name; }
  }
  
  transient L<Mode> modes = ll(
    new Mode("Cleared for auto-run", script -> {
      var var = new VirtualVar(
        -> getVar(script.clearedForAutoRun()),
        text -> script.setClearedForAutoRun(text == null ?: new ClearForAutoRun(text)));
      addWeakChangeListener(script.varClearedForAutoRun(), var);
      ret var;
    }),
      
    new Mode("Saved", script -> script.varText()),
    
    new Mode("Editing", script -> script.varEditingText())
  );
  
  *(G22Utils *g22utils) {}
  
  visualize {
    ides = new JLeftArrowScriptIDE[l(modes)];
    if (scp == null) scp = singleComponentPanel();
    loadScript(script);
    ret scp;
  }
  
  void setScript(A script) {
    if (this.script != script)
      loadScript(script);
  }
  
  void loadScript(A script) {
    this.script = script;
    if (scp == null) ret;
    if (script == null)
      scp.set(jcenteredlabel(noScriptSelectedMsg()));
    else {
      tabs = jtabs();
      for (int i, Mode mode : unpair iterateWithIndex(modes)) {
        var ide = ides[i] = g22utils.leftArrowIDE();
        modifyIDE(ide);
        ide.lvScript(varWithNotifyToLiveValue(S.class, mode.scriptVar(script)));
        addTab(tabs, str(mode), wrapIDE(ide));
      }
      scp.set(tabs);
    }
  }
  
  swappable JComponent wrapIDE(JLeftArrowScriptIDE ide) {
    ret ide.visualize();
  }
  
  event settingUpIDE(JLeftArrowScriptIDE ide);
  
  swappable void modifyIDE(JLeftArrowScriptIDE ide) {
    ide.showTitle(false);
    settingUpIDE(ide);
  }
}