!7

cmodule2 ExtraFrame {
  S mainModuleID;
  transient JComponent visualization;
  bool deleteOnMainReload; // delete when main module is reloaded
  bool deleteOnReboot; // delete when OS is rebooted
  bool usePreferredSizeInitially;
  int minimumSizePlusY = 100; // fix the god damn window-too-small bug?
  
  visual visualization;
  
  start {
    componentFieldsToKeep = litset("visualization");
    
    if (deleteOnReboot && dm_isBooting())
      dm_deleteModule();
    
    // delete this module when main module is deleted
    dm_vmBus_onMessage_enter moduleDeleted(voidfunc(O mod) {
      if (dm_sameModule(mod, mainModuleID))
        dm_deleteModule();
    });
    
    dm_vmBus_onMessage_enter moduleReloaded(voidfunc(O mod) {
      if (deleteOnMainReload && dm_sameModule(mod, mainModuleID))
        dm_deleteModule();
    });
    
    // react to frame being disposed of by code
    dm_vmBus_onMessage_enter disposingInternalFrame(voidfunc(O frame) {
      if (frame == dm_frame(module()))
        dm_deleteModule();
    });
  }
  
  JComponent _getReloadData() { ret visualization; }
  void _setReloadData(JComponent data) { this.visualization = data; }
  
  bool _usePreferredSizeInitially() { ret usePreferredSizeInitially; }
  
  Pt minimumSize() {
    if (visualization == null) null;
    Dimension d = getMinimumSize(visualization);
    ret Pt(d.width, d.height+minimumSizePlusY);
  }
}