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