| … | |
… | |
| 176 | |
176 | |
| 177 | return if $FOCUS == $self; |
177 | return if $FOCUS == $self; |
| 178 | return unless $self->{can_focus}; |
178 | return unless $self->{can_focus}; |
| 179 | |
179 | |
| 180 | my $focus = $FOCUS; $FOCUS = $self; |
180 | my $focus = $FOCUS; $FOCUS = $self; |
|
|
181 | |
|
|
182 | $self->emit (focus_in => $focus); |
|
|
183 | |
| 181 | $focus->update if $focus; |
184 | $focus->update if $focus; |
| 182 | $FOCUS->update; |
185 | $FOCUS->update; |
| 183 | } |
186 | } |
| 184 | |
187 | |
| 185 | sub focus_out { |
188 | sub focus_out { |
| 186 | my ($self) = @_; |
189 | my ($self) = @_; |
| 187 | |
190 | |
| 188 | return unless $FOCUS == $self; |
191 | return unless $FOCUS == $self; |
| 189 | |
192 | |
| 190 | my $focus = $FOCUS; undef $FOCUS; |
193 | my $focus = $FOCUS; undef $FOCUS; |
|
|
194 | |
|
|
195 | $self->emit (focus_out => $focus); |
|
|
196 | |
| 191 | $focus->update if $focus; #? |
197 | $focus->update if $focus; #? |
| 192 | } |
198 | } |
| 193 | |
199 | |
| 194 | sub mouse_motion { } |
200 | sub mouse_motion { } |
| 195 | sub button_up { } |
201 | sub button_up { } |
