!7

set flag DynModule. // for transpiler

module RemoteJavaEval > DynPrintLog {
  S computerID, expression;
  bool realEval;
  transient O value;
  transient JTextArea taInput;
  transient Throwable error;
  
  start {
    dm_requireModule("#1016578/AllOnlineComputers");
  }
  
  visualize {
    ret withMargin(jvsplit(
      northAndCenterWithMargin(
        withLabel("Computer to evaluate this on:", dm_onlineComputerSelectorComboBox(dm_fieldLiveValue('computerID))),
          centerAndEastWithMarginInbetween(
          onCtrlEnter(taInput = jEnableUndoRedo(typeWriterTextArea(expression)), rThread { evalIt(false) }),
          vstackWithSpacing(
            jbutton("Fresh", rThread { evalIt(true) }),
            jbutton("Eval", rThread { evalIt(false) }),
            withToolTip("Don't interpret", dm_fieldCheckBox("Real", 'realEval))))),
      super.visualize()));
  }
  
  void evalIt(bool fresh) pcall {
    temp enter();
    if (!isComputerID(computerID)) ret;
    S s = gtt(taInput);
    setField(expression := s);
    print("\nEvaluating on " + computerID + ": " + s);
    logQuotedWithDate("expressions.txt", computerID + ": " + s);
    long time = sysNow();
    O value = dm_evalOnOtherMachine_optimizeIfMe(computerID, s, +realEval, +fresh);
    new L<S> info;
    info.add(elapsedMS(time) + " ms");
    addAll(info, quickValueInformation_list(value));
    print("[" + joinWithComma(info) + "]");
    S string = str(value);
    pcall { logStructureWithDate("with-results.txt", ll(s, string)); }
    print(shorten(1000, string));
    if (value cast BufferedImage)
      showImage(value);
  }
}

Began life as a copy of #1017551