!7

module DirectoryTree > DynSCP {
  File dir;
  
  JComponent visualize2() {
    ret jcenteredbutton("Select directory...", rThread select);
  }
  
  void select {
    temp enter();
    selectDir(voidfunc(File dir) { setDir(dir) });
  }
  
  void setDir(File dir) {
    temp enter();
    setField(+dir);
    setModuleName(f2s(dir) + " [Directory Tree]");
    setComponent(jDynamicTree(dir, func(File d) -> L<File> { listDirs(d) }));
  }
}