!7

sclass DefunctACC extends DynModule {
  JComponent visualize() {
    ret jbutton("Print", r actualUpdate);
  }
  
  void actualUpdate {
    for (Thread t : allThreadsWithACC()) {
      S desc = threadGroupName(t) + " / " + t.getName();
      AccessControlContext acc;
      try {
        acc = castGetOpt(t, 'inheritedAccessControlContext);
      } catch {
        continue with print("Can't see inside: " + desc);
      }
      if (acc == null) continue;
      //print(acc_programIDs(acc) + ": " + desc);
      L<S> defunctIDs = acc_defunctProgramIDs(acc);
      if (nempty(defunctIDs))
        print("DEFUNCT! " + defunctIDs + ": " + desc);
    }
  }
}