… | |
… | |
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 | |