@@ -311,6 +311,7 @@ sub beAbsorbed {
311
311
&{ $$self {openContainer } }($document , ($attr ? %$attr : ()),
312
312
cwidth => $$self {cwidth }, cheight => $$self {cheight }, cdepth => $$self {cdepth },
313
313
rowheights => $$self {rowheights },
314
+ rowdepths => $$self {rowdepths },
314
315
columnwidths => $$self {columnwidths },
315
316
);
316
317
foreach my $row (@rows ) {
@@ -513,6 +514,7 @@ sub showSize {
513
514
sub normalize_sum_sizes {
514
515
my ($self ) = @_ ;
515
516
my @rowheights = ();
517
+ my @rowdepths = ();
516
518
my @colwidths = ();
517
519
my @colrights = ();
518
520
my @collefts = ();
@@ -564,6 +566,7 @@ sub normalize_sum_sizes {
564
566
$$row {tpadding } = Dimension($rowt );
565
567
$$row {bpadding } = Dimension($rowb );
566
568
# NOTE: Should be storing column widths to; individually, as well as per-column!
569
+ push (@rowdepths , $rowd );
567
570
push (@rowheights , $rowh + $rowd ); } # somehow our heights are way too short????
568
571
# # Now compute the positions
569
572
my @rowpos = ();
@@ -588,8 +591,10 @@ sub normalize_sum_sizes {
588
591
$$self {cdepth } = Dimension(0);
589
592
@colwidths = map { Dimension($_ ); } @colwidths ;
590
593
@rowheights = map { Dimension($_ ); } @rowheights ;
594
+ @rowdepths = map { Dimension($_ ); } @rowdepths ;
591
595
$$self {columnwidths } = [@colwidths ];
592
596
$$self {rowheights } = [@rowheights ];
597
+ $$self {rowdepths } = [@rowdepths ];
593
598
594
599
for (my $i = 0 ; $i < scalar (@rowheights ) ; $i ++) {
595
600
my $row = $rows [$i ];
0 commit comments