!7

sclass Entry {
  S threadName, stackTrace;
}

cmodule RunnableThreads > DynObjectTable<Entry> {
  start {
    dontPersist();
    //itemToMap = func(Thread t) -> Map { litorderedmap("Name" := t.getName()) };
    dm_doEveryAndNow(2.0, r actualUpdate);
  }
  
  void actualUpdate enter {
    setData(map(runnableThreadsWithStackTraces(), 
      (t, st) -> nu Entry(threadName := t.getName(),
        stackTrace := stackTraceToString(st))));
  }
}