srecord noeq ScreenSelectorRadioButtons(SimpleLiveValue<Int> lvScreenNr) is Swingable {
  transient ButtonGroup radioButtons;
  transient SingleComponentPanel scp;
  settable bool compactLayout;
  settable bool hideIfOnlyOne;
  settable S screenLabel = "Screen";
  
  visual swing(-> {
    if (scp == null) {
      scp = singleComponentPanel();
      awtEveryAndNow(scp, 5.0, r updateScreenCount);
    }
    
    var n = screenCount();
    radioButtons = jRadioButtons(
      countIteratorAsList(n,
        i -> (compactLayout ? "": screenLabel + " ") + (i+1)));
    setRadioButtonToolTips(radioButtons, i -> "Select screen " + (i+1));
    selectRadioButton(radioButtons, lvScreenNr!);
    onRadioButtonChange(radioButtons, i -> lvScreenNr.set(i));
    scp.setComponent(compactLayout
      ? hideIfOnlyOne && n == 1 ? null
        : hstack(flattenList2(nempty(screenLabel) ? jlabel(screenLabel) : null, buttonsInGroup(radioButtons)))
      : jline(flattenList2(buttonsInGroup(radioButtons))));
      
    ret scp;
  });
  
  void updateScreenCount() {
    if (radioButtons != null && radioButtons.getButtonCount() != screenCount())
      visualize();
  }
}