| … | |
… | |
| 182 | $x -= $self->{x}; |
182 | $x -= $self->{x}; |
| 183 | $y -= $self->{y}; |
183 | $y -= $self->{y}; |
| 184 | |
184 | |
| 185 | my $res; |
185 | my $res; |
| 186 | |
186 | |
| 187 | for (@{ $self->{children} }) { |
187 | for (reverse @{ $self->{children} }) { |
| 188 | $res = $_->find_widget ($x, $y) |
188 | $res = $_->find_widget ($x, $y) |
| 189 | and return $res; |
189 | and return $res; |
| 190 | } |
190 | } |
| 191 | |
191 | |
| 192 | () |
192 | $self->SUPER::find_widget ($x + $self->{x}, $y + $self->{y}) |
| 193 | } |
193 | } |
| 194 | |
194 | |
| 195 | sub _draw { |
195 | sub _draw { |
| 196 | my ($self) = @_; |
196 | my ($self) = @_; |
| 197 | |
197 | |
