| … | |
… | |
| 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 (reverse @{ $self->{children} }) { |
| 185 | $res = $_->find_widget ($x, $y) |
188 | $res = $_->find_widget ($x, $y) |
| 186 | and return $res; |
189 | and return $res; |
| 187 | } |
190 | } |
| 188 | |
191 | |
| 189 | () |
192 | $self->SUPER::find_widget ($x + $self->{x}, $y + $self->{y}) |
| 190 | } |
193 | } |
| 191 | |
194 | |
| 192 | sub _draw { |
195 | sub _draw { |
| 193 | my ($self) = @_; |
196 | my ($self) = @_; |
| 194 | |
197 | |
