!7

sclass DirectoryInfo extends DynModule {
  S dir;
  bool allowedToLook, exists, isFile;
  L<S> filesContained;
  
  transient File dirObject;
  
  JComponent visualize() {
    ret makeForm(+dir, +allowedToLook, +exists, +isFile, "Files contained", l(filesContained));
  }
  
  void start {
    dirObject = new File(dir);
  }
  
  void update {
    if (!allowedToLook) {
      setField(exists := dirObject.isDirectory());
      setField(isFile := dirObject.isFile());
      if (filesContained == null)
        setField(filesContained := listFileNames(dirObject));
    }
  }
}