srecord noeq JOnDemandWithReloadButton(IF0<JComponent> makeComponent) is Swingable {
  SingleComponentPanel scp = singleComponentPanel();
  ReliableSingleThread rstReload = rst(l0 reloadImpl);
  JButton btnReload;
  settable JPanel controls = rightAlignedLine();
  SingleComponentPanel scpControlsMain = scp();
  
  settable bool loadingScreenWhenReloading;
  settable bool showControls = true;
  
  void reload { rstReload.trigger(); }
  
  cachedVisualize {
    bindToComponent(scp, -> {
      if (scp.isEmpty()) reload();
    }, null);
    
    if (!showControls) ret scp;
    
    makeControls();
    ret northAndCenter(withMargin(centerAndEastWithMargin(scpControlsMain, controls)), scp);
  }
  
  void makeControls {
    if (!showControls) ret;
    btnReload = jReloadButton(l0 reload);
    controls.add(btnReload);
  }
    
  void reloadImpl {
    temp tempDisableButton(btnReload);
    
    if (loadingScreenWhenReloading() || !scp.hasComponent())
      scp.setComponent(jCenteredLabel("Loading..."));
      
    try {
      scp.setComponent(makeComponent?!);
    } catch print e {
      scp.setComponent(jscroll(jFastLogView_noWrap(renderStackTrace(e)));
    }
  }
  
  selfType function(IF0 f) {
    makeComponent = -> wrap(f?!);
    this;
  }
}

Began life as a copy of #1034024