… | |
… | |
1171 | sub size_allocate { |
1171 | sub size_allocate { |
1172 | my ($self, $w, $h) = @_; |
1172 | my ($self, $w, $h) = @_; |
1173 | |
1173 | |
1174 | my ($ws, $hs) = $self->get_wh; |
1174 | my ($ws, $hs) = $self->get_wh; |
1175 | |
1175 | |
1176 | my $req_w = sum @$ws; |
1176 | my $req_w = (sum @$ws) || 1; |
1177 | my $req_h = sum @$hs; |
1177 | my $req_h = (sum @$hs) || 1; |
1178 | |
1178 | |
1179 | # TODO: nicer code && do row_expand |
1179 | # TODO: nicer code && do row_expand |
1180 | my @col_expand = @{$self->{col_expand}}; |
1180 | my @col_expand = @{$self->{col_expand}}; |
1181 | @col_expand = (1) x @$ws unless @col_expand; |
1181 | @col_expand = (1) x @$ws unless @col_expand; |
1182 | my $col_expand = (sum @col_expand) || 1; |
1182 | my $col_expand = (sum @col_expand) || 1; |