!7

cmodule MarkedImages > DynSCP {
  File dir;

  transient DynamicHStack buttons;
  transient ButtonImageLoader imageLoader;
  
  O[] menuItems() {
    ret litobjarray("Select directory...", r select);
  }
  
  start {
    if (dir == null) dir = picturesDir();
    ownResource(vmBus_onDirChange(dir, r updateButtons));
  }

  JComponent visualize2() {
    if (dir == null)
      ret jHandleFileDrop(jcenteredbutton("Select directory...", rThread select), voidfunc(File f) { setDir(f) });
    setDir(dir);
    ret getComponent();
  }
  
  void select enter {
    selectDir(voidfunc(File dir) { setDir(dir) });
  }
  
  void setDir(File dir) enter {
    setField(+dir);

    buttons = makeNiceButtons();
    imageLoader = new ButtonImageLoader(buttons) {
      void setAButtonsImage(JButton b, File f) {
        BufferedImage img = loadBufferedImage(f);
        BufferedImage preview = scaleBufferedImageToHeight(imageHeight, img);
        LPairS pairs = fileInfoFileAsPairs(f);
        fOr (PairS p : pairs) {
          O o = unstruct(p.b); // Note: unsafe
          if (o instanceof Scored) o = o/Scored!;
          Rect r = optCast Rect(o);
          if (r != null)
            drawRect(preview, rescaleRect_imageToImage(r, img, preview), Color.white);
        }
        setButtonImage(b, preview);
      }
    };
    updateButtons();
    setComponent(jHigherScrollPane(jfullcenter(buttons)));
  }
  
  void updateButtons {
    if (dir == null || buttons == null) ret;
    temp enter();
    L<File> imageFiles = sortFilesByName(listImageFiles(dir));
    L<TextImageAction> l = filesForNiceButtons(latestFilesFirst(imageFiles), f showImage);
    for (final TextImageAction tia : l)
      tia.popupMenuMaker = imageFilesPopupMenuFunction(tia);
    replaceNiceButtons(buttons, l);
    setModuleName(nImages(l) + " - " + f2s(dir));
    if (imageLoader != null) imageLoader.update();
  }
}

Began life as a copy of #1019188