| … | |
… | |
| 16 | our $TOOLTIP; |
16 | our $TOOLTIP; |
| 17 | our $BUTTON_STATE; |
17 | our $BUTTON_STATE; |
| 18 | |
18 | |
| 19 | our %WIDGET; # all widgets, weak-referenced |
19 | our %WIDGET; # all widgets, weak-referenced |
| 20 | |
20 | |
| 21 | our $TOOLTIP_WATCHER = EV::timer_ns 0, 1/60, sub { |
21 | our $TOOLTIP_WATCHER = EV::timer_ns 0, 0.03, sub { |
| 22 | $_[0]->stop; |
22 | $_[0]->stop; |
| 23 | |
23 | |
| 24 | if (!$GRAB) { |
24 | if (!$GRAB) { |
| 25 | for (my $widget = $HOVER; $widget; $widget = $widget->{parent}) { |
25 | for (my $widget = $HOVER; $widget; $widget = $widget->{parent}) { |
| 26 | if (length $widget->{tooltip}) { |
26 | if (length $widget->{tooltip}) { |
