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