projekt kivitendo

    # Allow columns to expand to max_w before applying extra space equally.

    my $is_last_iter;

    for (;;)

    {

        my $span = ($avail_width - $min_width) / scalar( @$col_props);

        last if $span <= 0;

        $min_width = 0;

        my $next_will_be_last_iter = 1;

        for(my $j = 0; $j < scalar(@$col_props); $j++ )

        {

            my $new_w = $calc_widths->[$j] + $span;

            if (!$is_last_iter && $new_w > $col_props->[$j]->{max_w})

            {

                $new_w = $col_props->[$j]->{max_w}

            }

            if ($calc_widths->[$j] != $new_w )

            {

                $calc_widths->[$j] = $new_w;

                $next_will_be_last_iter = 0;

            }

            $min_width += $new_w;

        }

        last if $is_last_iter;

        $is_last_iter = $next_will_be_last_iter;