concept G22TradingAccount extends ConceptWithChangeListeners {
  settableWithVar S name;
  settableWithVar S platform;
  settableWithVar S comment;
  
  settableWithVar bool enabled = true;
  
  settableWithVar Double equity;
  
  settableWithVar L income;
  settableWithVar L executions;
  
  settable transient Cl positions;
  settable transient O session;
  
  settable double imaginaryEquity;
  
  File credentialsFile() {
    ret javaxSecretDir("Trading-Accounts/" + id + ".cred");
  }
  
  toString {
    ret "Account " + id + appendRoundBracketed(commaCombine(name, platform, equity));
  }
  
  double fullEquity() {
    ret unnull(equity)+imaginaryEquity;
  }
}