svoid cleanDefunctACCsInAllSwingComponents() {
  for (Component c : allSwingComponents()) pcall {
    AccessControlContext acc = castGetOpt(c, 'inheritedAccessControlContext);
    if (acc == null) continue;
    L<S> defunctIDs = acc_defunctProgramIDs(acc);
    if (nempty(defunctIDs)) {
      S desc = shortClassName(c);
      print("DEFUNCT ACC IN COMPONENT! Cleaning. " + defunctIDs + ": " + desc);
      set(c, inheritedAccessControlContext := acc_current());
    }
  }
}