sclass G22DBFileBrowser {
  G22Utils g22utils;
  
  File dir;
  JObjectTable<File> table;
  FileWatchService dirWatcher;
  ReliableSingleThread rstUpdate = rstWithPreDelay(0.5, r _updateTable);
  
  *(G22Utils *g22utils) {
    dir = g22utils.concepts.conceptsDir();
  }
  
  cachedVisualize {
    table = swing(-> new JObjectTable);
    table.itemToMap = file -> litorderedmap(
      "Path" := nameRelativeToPhysicalSubdirectory(dirOfFile(file), dir),
      "Name" := fileName(file),
      "Size" := file.isDirectory() ? "Directory" : str_toK(fileSize(file))
    );

    var tbl = table.visualize();
    bindToComponent(tbl, -> {
      dirWatcher = new FileWatchService;
      dirWatcher.addRecursiveListener(dir, f -> rstUpdate!);
      rstUpdate!;
    }, -> { dispose dirWatcher; });

    ret withTopAndBottomMargin(jCenteredRaisedSection("Files in Project",
      northAndCenterWithMargins(
        withLabel("Project directory:", swing(-> new JFilePathLabel(dir).visualize())),
        tbl
      )
    ));
  }
  
  void _updateTable { table.setData_force(findAllFiles(dir)); }
}

Began life as a copy of #1034679