!7

DynSingleFunction > HeapDumper {
  S status;
  
  *() { super("Dump Heap"); }
  
  JComponent visualize() {
    ret centerAndSouth(super.visualize(),
      jLiveValueLabel(dm_fieldLiveValue('status)));
  }
  
  void doIt {
    temp dm_tempDisableAllButtons();
    try {
      File f = theFile();
      setField(status := "Dumping heap to " + f2s(f));
      dumpHeap(f);
      setField(status := "Dump made: " + renderFileInfo(f));
    } catch e {
      setField(status := exceptionToStringShort(e));
      _handleException(e);
    }
  }
  
  File theFile() {
    ret stefansOS_heapDumpFile();
  }
}