// Note: Putting a JForm in a scroll pane is still under development
// jscroll_vertical seems to work, at least if there are no tall components
// (text areas).

sclass JForm is Swingable {
  new L parts;
  new FormLayout1 layout;
  JPanel panel;
  settable bool scrollable;
  
  // called after form is submitted.
  // can set or change at any point after form is generated/shown
  settable IVF1<Component> frameCloser;
  
  *(O... parts) { this.parts = asList(parts); }
  
  selfType addRow(S label, Component etc component) {
    addAll(parts, label, component);
    this;
  }
  
  cachedVisualize {
    panel = jpanel(layout,
      showForm_arrange1(showForm_makeComponents(
        c -> { frameCloser?.get(c); },
        flattenToArray(parts))));
    ret scrollable ? jscroll_vertical(panel) : panel;
  }
        
  selfType closeInternalFrameOnSubmit() { frameCloser(l1 disposeInternalFrame); this; }
  selfType closeFrameOnSubmit aka disposeFrameOnSubmit() { frameCloser(l1 disposeFrame); this; }
  selfType closeNothingOnSubmit() { frameCloser(null); this; }
}