sclass JSelectableDirLabel > JFilePathLabel {
  transient JButton selectButton;
  
  *() {}
  *(File dir) { super(dir); }
  
  void makeButtons :: after {
    selectButton = toolTip("Select a directory",
      jbutton("Choose...", l0 showSelectDialog);
    buttons.add(selectButton);
  }
  
  void showSelectDialog {
    showDirChooser(file(), l1 setFile);
  }
}