static Runnable disableAllButtonsWhileCalcing(final Runnable r) {
  ret r {
    final JButton button = heldInstance(JButton);
    L<JButton> buttons = childrenOfType(JButton, (Component) getPossiblyInternalFrame(button);
    final L<JButton> enabledButtons = onlyEnabledComponents(buttons);
    disableButtons(enabledButtons);
    thread {
      try {
        callF(r);
      } finally {
        enableButtons(enabledButtons);
      }
    }
  };
}