… | |
… | |
1738 | my $y = _scale $child->{c_rel}, $child->{c_y}, $H; |
1738 | my $y = _scale $child->{c_rel}, $child->{c_y}, $H; |
1739 | |
1739 | |
1740 | $x += $child->{c_halign} * $child->{req_w}; |
1740 | $x += $child->{c_halign} * $child->{req_w}; |
1741 | $y += $child->{c_valign} * $child->{req_h}; |
1741 | $y += $child->{c_valign} * $child->{req_h}; |
1742 | |
1742 | |
1743 | $child->configure ($x, $y, $child->{req_w}, $child->{req_h}); |
1743 | $child->configure (int $x, int $y, $child->{req_w}, $child->{req_h}); |
1744 | } |
1744 | } |
1745 | |
1745 | |
1746 | 1 |
1746 | 1 |
1747 | } |
1747 | } |
1748 | |
1748 | |