!7

cmodule TenSecondProfiler {
  S result;
  
  transient JTextArea textArea;

  visualize {
    ret northAndCenterWithMargins(
      fontSize(20, jbutton("Profile!", disableAndRenameButtonWhileCalcing3("Profiling...", r doIt))),
      textArea = typeWriterTextArea_noUndo("Results will go here"));
  }
  
  void doIt enter {
    setTextCaret0(textArea, text_tenSecondProfile());
  }
}