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