static int formLayouter1b_yPlus = 0; // make higher (bug fixing)
static int formLayouter1b_fixer2 = 0;

static F1<Container, Pair<Dimension>> formLayouter1b() {
  final int yplus = formLayouter1b_yPlus, fixer2 = formLayouter1b_fixer2;
  ret func(Container parent) -> Pair<Dimension> {
    L<Component> l = getComponents(parent);
    new BitSet bigOnes;
    for i over l:
      if (containsATextArea(l.get(i))) add(bigOnes, i);
      
    int nBigOnes = bigOnes.cardinality();
    int mandatoryHeight = totalPreferredHeight(listWithoutIndicesInBitSet(l, bigOnes));
    int gap = 4, outerSpacing = 5;
    Dimension size = parent.getSize();
    int gapsAndMargins = outerSpacing*2-(l(l)-1)*gap;
    int totalSpace = size.height-gapsAndMargins-fixer2;
    int liberalSpace = totalSpace-mandatoryHeight;
    double perBigOne = doubleRatio(liberalSpace, nBigOnes);
    double y = outerSpacing;
    for i over l: {
      Component c = l.get(i);
      bool big = contains(bigOnes, i);
      double h = big ? perBigOne : c.getPreferredSize().height;
      int actualY = iround(y);
      c.setBounds(10, actualY, size.width-outerSpacing*2, iround(y+h)-actualY);
      y += h+gap;
    }
    
    // return preferred size
    Dimension pref = componentsBoundingSize(parent, outerSpacing);
    ifdef formLayouter1_debug
      printVars_str formLayouter1b(+pref, parentHeight := parent.getHeight());
    endifdef
    if (parent.getHeight() <= 0) { // pre-showing - maybe we should always do this
      int tph = totalPreferredHeight(l);
      pref.height = tph/*+gapsAndMargins*/-outerSpacing*2;
      ifdef formLayouter1_debug
        printVars_str formLayouter1b(+pref, +tph, +gapsAndMargins, +yplus);
      endifdef
    }
    
    int tmh = totalMinimumHeight(l);
    Dimension min = new(100, tmh/*+gapsAndMargins*/-outerSpacing*2);
    ifdef formLayouter1_debug
      printVars_str formLayouter1b(+tmh, +gapsAndMargins, +yplus, +min);
    endifdef

    ret pair(pref, min);
  };
}

Began life as a copy of #1014730