… | … | ||
---|---|---|---|
104 | my $widget = $ROOT->find_widget ($x, $y); | 104 | my $widget = $ROOT->find_widget ($x, $y); |
105 | 105 | ||
106 | $GRAB = $widget; | 106 | $GRAB = $widget; |
107 | $GRAB->update if $GRAB; | 107 | $GRAB->update if $GRAB; |
108 | 108 | ||
109 | $TOOLTIP_WATCHER->trigger; | 109 | $TOOLTIP_WATCHER->invoke; |
110 | } | 110 | } |
111 | 111 | ||
112 | if ($GRAB) { | 112 | if ($GRAB) { |
113 | if ($ev->{button} == 4 || $ev->{button} == 5) { | 113 | if ($ev->{button} == 4 || $ev->{button} == 5) { |
114 | # mousewheel | 114 | # mousewheel |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |