sclass JMiniJavaIDE is Swingable {

  settable SimpleLiveValue<S> lvScript = stringLiveValue();

  S sectionTitle = "Mini Java IDE";

  sS helpText = "Javaaa";

  transient CompileResult compileResult;

  transient RSyntaxTextAreaWithSearch taScript;

  transient new Q compileQ;

  transient JLabel lblCompileResult;

  transient JButton btnRun;

  transient JavaCompletionProvider completionProvider;

  transient AutoCompletion autoComplete;

  transient settable IStringifier stringifier;

  class JavaCompletionProvider extends DefaultCompletionProvider {

    @Override

    public L<Completion> getCompletionByInputText(S inputText) {

      print("getCompletionByInputText: " + quote(inputText));

      ret ll(

        /*new BasicCompletion(this, inputText + "YesYes"),

        new BasicCompletion(this, inputText + "NoNo")*/);

    }

    @Override

    public L<Completion> getCompletionsImpl(JTextComponent comp) {

      ret getCompletionByInputText(getAlreadyEnteredText(comp));

    }

  }

  visual {

    taScript = liveValueRSyntaxTextArea_bothWays(lvScript);

    awtCalcEvery(taScript.textArea(), 5.0, -> compileQ.add(r compile));

    swing {

      completionProvider = new JavaCompletionProvider;

      completionProvider.setAutoActivationRules(true, " ");

      autoComplete = new AutoCompletion(completionProvider);

      autoComplete.setAutoActivationEnabled(true);

      autoComplete.install(taScript.textArea);

    }

    ret jCenteredSection(sectionTitle,

      centerAndSouthWithMargin(

        taScript.visualize(),

        centerAndEastWithMargin(

          jBorderlessHigherScrollPane(lblCompileResult = jlabel()),

          vstack(

            jline(

              btnRun = jbutton("Run" := rThread runButtonAction),

              jPopDownButton_noText(

                "Show Scripting Help", rThread { showTextWordWrapped("Gazelle 'Left arrow script' Help", helpText) },

              )

          ))

        )));

  }

  bool visible() { ret isShowing(lblCompileResult); }

  void compile {

    var script = lvScript!;

    var result = compileResult;

    if (result == null || !eq(result.script, script)) {

      setStatus("Compiling...");

      try {

        result = new CompileResult;

        result.script = script;

        result.className = "UserCode_" + now();

        result.adaptedScript = adaptScript(result);

        result.java = result.adaptedScript;

        //result.adaptedScript = "mainClassName " + result.className + "\n\n" + result.script;

        //result.java = transpileRaw(result.adaptedScript);

        result.compiledObject = veryQuickJava_finish_specialMainClass(result.className, result.java);

        print(compiledObject := result.compiledObject);

      } catch print e {

        result.compileError = e;

      }

      compileResult = result;

      setText(lblCompileResult, compileResult);

      updateRunButtonState();

    }

  }

  void updateRunButtonState() {

    setEnabled(btnRun, runButtonShouldBeEnabled());

  }

  swappable bool runButtonShouldBeEnabled() {

    ret compileResult != null && compileResult.runnable();

  }

  CompileResult freshCompileResult() {

    runInQAndWait(compileQ, r compile);

    ret compileResult;

  }

  O compiledObject() {

    ret freshCompileResult().compiledObject;

  }

  swappable void runButtonAction {

    runScript();

  }

  void runScript {

    //showText_fast_noWrap("Script Error", renderStackTrace(e));

    var result = freshCompileResult();

    if (result.compiledObject != null) {

      setStatus("Running");

      result.result = okOrError(-> callCompiledObject(result.compiledObject));

      setStatus(result.result.isOK()

        ? shorten(stringify(stringifier, result.result!))

        : exceptionToStringShorter(result.result.error()));

    }

  }

  class CompileResult {

    S script, adaptedScript, java;

    S className;

    Class compiledObject;

    Throwable compileError;

    OKOrError result;

    toString {

      if (compileError == null) ret "Compiled OK";

      S msg = compileError.getMessage();

      msg = dropPrefixFromLines("> ", msg);

      var errors = parseECJOutputForErrors(msg);

      if (nempty(errors)) {

        var error = first(errors);

        // rough but usually works

        print(codeLine := quote(error.codeLine));

        pnlQuoted(asList(lines_iterator(script)));

        int lineNr = indexOfLine(script, tabsToSpaces(error.codeLine));

        error.lineNr = lineNr+1;

        ret str(error);

      }

      ret msg;

    }

    bool runnable() { ret compiledObject != null; }

  }

  void setStatus(S status) {

    setText(lblCompileResult, status);

  }

  swappable S extraClassMembers(S script) {

    ret "";

  }

  swappable S adaptScript(CompileResult result) { 

    ret tok_moveImportsUp("class " + result.className + "{"

      + extraClassMembers(result.script) + "\n"

      + evalJava_prep(result.script)

      + "}");

  }

  swappable O callCompiledObject(O object) {

    ret callCalc(object);

  }

}