!7

sclass ThreadMemoryAllocationRates extends DynModule {
  transient SimpleLiveValue<S> lv = stringLiveValue();
  
  JComponent visualize() {
    ret jLiveValueTypeWriterTextArea(lv);
  }
  
  void start {
    doEveryAndNow(1.0, r doIt);
  }
  
  void doIt {
    temp enter();
    if (!threadAllocatedMemoryEnabled())
      ret with lv.set("Thread memory allocation not monitored");
      
    com.sun.management.ThreadMXBean bean = advancedThreadMXBean();
    L<Thread> threads = allThreads_fast();
    long[] values = bean.getThreadAllocatedBytes(threadIDs_array(threads));
    new L<S> lines;
    for i over values:
      if (values[i] != 0)
        lines.add((padLeft(str(toK(values[i])), 9) + "K: " + threads.get(i).getName());
    lv.set(lines(reverseSorted(lines)));
  }
}