// 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; }

}