| … | |
… | |
| 139 | my $grab = $GRAB; undef $GRAB; |
139 | my $grab = $GRAB; undef $GRAB; |
| 140 | $grab->update if $grab; |
140 | $grab->update if $grab; |
| 141 | $GRAB->update if $GRAB; |
141 | $GRAB->update if $GRAB; |
| 142 | |
142 | |
| 143 | check_hover $widget; |
143 | check_hover $widget; |
| 144 | $TOOLTIP_WATCHER->trigger; |
144 | $TOOLTIP_WATCHER->invoke; |
| 145 | } |
145 | } |
| 146 | } |
146 | } |
| 147 | |
147 | |
| 148 | sub feed_sdl_motion_event { |
148 | sub feed_sdl_motion_event { |
| 149 | my ($ev) = @_; |
149 | my ($ev) = @_; |
| … | |
… | |
| 309 | delete $self->{root}; |
309 | delete $self->{root}; |
| 310 | |
310 | |
| 311 | undef $GRAB if $GRAB == $self; |
311 | undef $GRAB if $GRAB == $self; |
| 312 | undef $HOVER if $HOVER == $self; |
312 | undef $HOVER if $HOVER == $self; |
| 313 | |
313 | |
| 314 | $CFPlus::UI::TOOLTIP_WATCHER->trigger |
314 | $CFPlus::UI::TOOLTIP_WATCHER->invoke |
| 315 | if $TOOLTIP->{owner} == $self; |
315 | if $TOOLTIP->{owner} == $self; |
| 316 | |
316 | |
| 317 | $self->emit ("focus_out"); |
317 | $self->emit ("focus_out"); |
| 318 | $self->emit (visibility_change => 0); |
318 | $self->emit (visibility_change => 0); |
| 319 | } |
319 | } |
| … | |
… | |
| 440 | |
440 | |
| 441 | $self->{tooltip} = $tooltip; |
441 | $self->{tooltip} = $tooltip; |
| 442 | |
442 | |
| 443 | if ($CFPlus::UI::TOOLTIP->{owner} == $self) { |
443 | if ($CFPlus::UI::TOOLTIP->{owner} == $self) { |
| 444 | delete $CFPlus::UI::TOOLTIP->{owner}; |
444 | delete $CFPlus::UI::TOOLTIP->{owner}; |
| 445 | $CFPlus::UI::TOOLTIP_WATCHER->trigger; |
445 | $CFPlus::UI::TOOLTIP_WATCHER->invoke; |
| 446 | } |
446 | } |
| 447 | } |
447 | } |
| 448 | |
448 | |
| 449 | # translate global coordinates to local coordinate system |
449 | # translate global coordinates to local coordinate system |
| 450 | sub coord2local { |
450 | sub coord2local { |
