!7

sclass VideosInDirectory extends DynSCP {
  new DynModuleRef mate;
  S dir;
  L<S> allFiles, videoFiles;
  
  transient DynamicHStack buttons;

  File dirObject() { ret newFile(dir); }
  
  JComponent visualize2() {
    if (buttons == null) { buttons = makeNiceButtons(); updateButtons(); }
    if (mate! == null) ret jcenteredlabel("Need directory");
    ret jHigherScrollPane(jfullcenter(buttons));
  }
  
  void update {
    lock lock;
    int oldChangeCount = mate! == null ? -1 : changeCount;
    try {
      if (mate! != null && !dm_moduleStillThere(mate!)) mate.set(null);
      if (mate! == null)
        if (setField(mate := DynModuleRef(print("Mate: ", dm_findMateOfType(this, 'DirectoryInfo)))))
          revisualize2();
      if (mate == null) ret;
      setField(dir := (S) call(mate!, 'getDir));
      L<S> allFiles = castCall(mate!, 'getFiles);
      if (this.allFiles != allFiles) {
        setField(+allFiles);
        setField(videoFiles := filterOrNull(allFiles, f isVideoFileName));
      }
    } finally {
      if (changeCount != oldChangeCount) updateButtons();
    }
  }
  
  void updateButtons {
    if (dir == null || buttons == null) ret with setModuleName("Videos in directory");
    L<TextImageAction> l = filesForNiceButtons(sortFilesByDate(
      fileNamesInDirToFile(new File(dir), videoFiles)), f dm_showVideo);
    for (final TextImageAction tia : l)
      tia.popupMenuMaker = VideosInDirectory_popupMenu(this, tia);
    replaceNiceButtons(buttons, l);
    setModuleName(videoFiles == null
      ? "Not allowed to look in directory " + fileName(dirObject())
      : n2(l, "video") + " in directory " + fileName(dirObject()));
  }
}

static VF1<JPopupMenu> VideosInDirectory_popupMenu(VideosInDirectory m, final TextImageAction tia) {
  // Haha, not even used
  //final WeakReference<VideosInDirectory> me = new(m);
  ret voidfunc(JPopupMenu menu) {
    final File f = filesForNiceButtons_map.get(tia);
  };
}

Began life as a copy of #1015922