| … | |
… | |
| 144 | my ($self, $row) = @_; |
144 | my ($self, $row) = @_; |
| 145 | |
145 | |
| 146 | my $hs = 0; |
146 | my $hs = 0; |
| 147 | for (my $xi = 0; $xi <= $#{$self->{childs}->[$row] || []}; $xi++) { |
147 | for (my $xi = 0; $xi <= $#{$self->{childs}->[$row] || []}; $xi++) { |
| 148 | my $c = $self->{childs}->[$row]->[$xi]; |
148 | my $c = $self->{childs}->[$row]->[$xi]; |
|
|
149 | if ($c) { |
| 149 | my ($w, $h) = $c->size_request if $c; |
150 | my ($w, $h) = $c->size_request; |
| 150 | if ($hs < $h) { $hs = $h } |
151 | if ($hs < $h) { $hs = $h } |
|
|
152 | } |
| 151 | } |
153 | } |
| 152 | return $hs; |
154 | return $hs; |
| 153 | } |
155 | } |
| 154 | |
156 | |
| 155 | sub max_col_width { |
157 | sub max_col_width { |
| 156 | my ($self, $col) = @_; |
158 | my ($self, $col) = @_; |
| 157 | |
159 | |
| 158 | my $ws = 0; |
160 | my $ws = 0; |
| 159 | for (my $yi = 0; $yi <= $#{$self->{childs} || []}; $yi++) { |
161 | for (my $yi = 0; $yi <= $#{$self->{childs} || []}; $yi++) { |
| 160 | my $c = ($self->{childs}->[$yi] || [])->[$col]; |
162 | my $c = ($self->{childs}->[$yi] || [])->[$col]; |
|
|
163 | if ($c) { |
| 161 | my ($w, $h) = $c->size_request if $c; |
164 | my ($w, $h) = $c->size_request; |
| 162 | if ($ws < $w) { $ws = $w } |
165 | if ($ws < $w) { $ws = $w } |
|
|
166 | } |
| 163 | } |
167 | } |
| 164 | return $ws; |
168 | return $ws; |
| 165 | } |
169 | } |
| 166 | |
170 | |
| 167 | sub size_request { |
171 | sub size_request { |
