| … | … | ||
|---|---|---|---|
| 180 | my ($self, $x, $y) = @_; | 180 | my ($self, $x, $y) = @_; |
| 181 | 181 | ||
| 182 | my $res; | 182 | my $res; |
| 183 | 183 | ||
| 184 | for (@{ $self->{children} }) { | 184 | for (@{ $self->{children} }) { |
| 185 | $res = $_->find_widget ($x, $y) | 185 | $res = $_->find_widget ($x - $self->{x}, $y - $self->{y}) |
| 186 | and return $res; | 186 | and return $res; |
| 187 | } | 187 | } |
| 188 | 188 | ||
| 189 | () | 189 | () |
| 190 | } | 190 | } |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |