!752

sS progID = "#1005522";

concepts.

p-substance {
  loadConceptsFrom(progID);
  
  new L<L> data;
  for (Concept c : conceptsOfType("Clip")) {
    BWImage img = cast cget(c, "img");
    S desc = cast cget(c, "description");
    if (img != null)
      data.add(ll(c.id + ". " + desc, img.getBufferedImage()));
  }
  L<S> cols = splitAtSpace("ID/Description Image");
  
  JTable table = sexyTable();
  fillTableWithData(table, data, cols);
  table.setRowHeight(100);
  
  showFrame("PIF Clips (" + progID + ")", table);
}