… | … | ||
---|---|---|---|
176 | $self->size_allocate ($self->{w}, $self->{h}); | 176 | $self->size_allocate ($self->{w}, $self->{h}); |
177 | } | 177 | } |
178 | 178 | ||
179 | sub find_widget { | 179 | sub find_widget { |
180 | my ($self, $x, $y) = @_; | 180 | my ($self, $x, $y) = @_; |
181 | |||
182 | $x -= $self->{x}; | ||
183 | $y -= $self->{y}; | ||
181 | 184 | ||
182 | my $res; | 185 | my $res; |
183 | 186 | ||
184 | for (@{ $self->{children} }) { | 187 | for (@{ $self->{children} }) { |
185 | $res = $_->find_widget ($x, $y) | 188 | $res = $_->find_widget ($x, $y) |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |