!7

cprint {
  transient JFastLogView_noWrap transpilationErrorBox;
  
  start-thread {
    dm_onSnippetEdited(voidfunc(S snippetID) {
      if (!sameSnippetID(snippetID, #1030833)) ret;
      S toTranspile = #1030602;
      bool medium = true;
      Runnable onSuccess = null;
      
      //transpileOnServerWithErrorWindow(toTranspile, true, null);
      try {
        Pair<Bool, S> p = transpileHereOrOnServer(toTranspile, medium);
        awt {
          if (p.a) {
            status("Transpiled OK!");
            hideWindow(transpilationErrorBox);
            transpilationErrorBox = null;
            callFInNewThread(onSuccess);
          } else {
            S text = htmlDecode(htmlDecode(p.b)); /// XXX
            status("Transpilation error. " + text);
            bool first = transpilationErrorBox == null;
            transpilationErrorBox = maximizeFrame(scrollAllTheWayDown(showText_fast_noWrap(transpilationErrorBox, "Transpilation Error", text)));
            if (first) {
              setFrameIcon(#1101268, transpilationErrorBox);
            }
          }
        }
      } catch print e {
        status("Transpilation problem. " + e);
      }
    });
  }
  
  void status(S s) { infoBox(s); }
}