!7

module ModuleRAMSizes extends DynObjectTable<Map> {
  start {
    doEveryAndNow(60.0, r calcIt);
  }
  
  void calcIt {
    temp enter();
    new L<Map> l;
    time "Calculate Module Sizes" {
      for (O mod : dm_listModules()) {
        S size = "?";
        pcall-short { size = toK(dm_moduleSize(mod)) + " K"; }
        l.add(litorderedmap(
          Name := dm_moduleName(mod),
          Size := size));
      }
    }
    setData(sortedByFieldAlphaNumDesc('Size, l));
  }
}