!7

set flag DynModule. // for transpilation

sclass JavaEval extends DynPrintLog {
  S expression;
  bool realEval;
  transient bool calculating;
  transient O value;
  transient JTextArea taInput;
  transient Throwable error;
  
  visualize {
    ret withMargin(jvsplit(
      centerAndEastWithMarginInbetween(
        onCtrlEnter(taInput = jEnableUndoRedo(typeWriterTextArea(expression)), rThread evalIt),
        vstackWithSpacing(
          jbutton("Fresh", rThread { refresh(); evalIt() }),
          jbutton("Eval", rThread evalIt),
          withToolTip("Don't interpret", dm_fieldCheckBox("Real", 'realEval)))),
      super.visualize()));
  }
  
  void refresh {
    call(dm_transpiler(), 'refresh);
    print("Refreshed translator.");
  }
  
  void evalIt {
    if (calculating) ret;
    calculating = true;
    temp afterwards(r { calculating = false });
    dm_javaEvalModule_doIt(gtt(taInput), realEval);
  }
}