sclass G22DatabasesPanel {
  G22utils g22utils;
  JObjectTable<GazelleDB> table;
  
  *(G22Utils *g22utils) {}
  
  record GazelleDB(S name, File dir) {
    simplyCached bool loaded() {
      ret sameFile(dir, concepts.conceptsDir());
    }
  }

  visualize {
    table = swing(-> new JObjectTable);
    table.itemToMap = db -> litorderedmap(
      "Name" := db.name,
      "Directory" := f2s(db.dir),
      "Loaded" := db.loaded() ? "Yes" : "No"
    );

    new L<GazelleDB> dbs;
    dbs.add(new GazelleDB("Legacy DB", programDir()));
    for (File dir : listDirsContainingFileNamed(g22utils.databasesMotherDir(),
      "concepts.structure.gz"))
      dbs.add(new GazelleDB(fileName(dir), dir));
        
    table.setList(dbs);

    ret withTopAndBottomMargin(jCenteredRaisedSection("Gazelle Databases",
      withMargin(table.visualize())));
  }
}