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