srecord noeq JFilePathLabel(File file) is Swingable {

  transient JLabel label;

  transient JFilePathButton button;

  transient JPanel buttons = jline();

  bool nameOnly;

  settable bool iconOnTheLeft;

  settable bool minWidth; // allow file path to be shortened if layout requires it

  cachedVisualize {

    label = jlabel();

    if (minWidth) jnarrowLabel(label);

    makeButtons();

    update();

    ret layout();

  }

  void makeButtons {

    button = new JFilePathButton(file);

    buttons.add(button.visualize());

  }

  void setFile(File file) {

    this.file = file;

    update();

  }

  File file aka get() { ret file; }

  void update {  

    setText(label, file == null ? "-" : nameOnly ? fileName(file) : f2s(file));

    if (nameOnly) toolTip(file == null ? "No file" : f2s(file), label);

    button.setFile(file);

  }

  JComponent layout() {

    var a = buttons;

    var b = label;

    ret iconOnTheLeft

      ? minWidth ? westAndCenterWithMargin(a, b) : jline(a, b)

      : minWidth ? centerAndEastWithMargin(b, a) : jline(b, a);

  }

  void showInExplorer { button.showInExplorer(); }

  selfType nameOnly() { set nameOnly; this; }

}