| … | |
… | |
| 31 | $TOOLTIP->set_tooltip_from ($widget); |
31 | $TOOLTIP->set_tooltip_from ($widget); |
| 32 | $TOOLTIP->show; |
32 | $TOOLTIP->show; |
| 33 | |
33 | |
| 34 | my ($x, $y) = $widget->coord2global ($widget->{w}, 0); |
34 | my ($x, $y) = $widget->coord2global ($widget->{w}, 0); |
| 35 | |
35 | |
| 36 | if ($x + $TOOLTIP->{w} > $::WIDTH) { |
|
|
| 37 | ($x, $y) = $widget->coord2global (-$TOOLTIP->{w}, 0); |
36 | ($x, $y) = $widget->coord2global (-$TOOLTIP->{w}, 0) |
| 38 | } |
37 | if $x + $TOOLTIP->{w} > $::WIDTH; |
| 39 | |
38 | |
| 40 | $TOOLTIP->move ($x, $y); |
39 | $TOOLTIP->move ($x, $y); |
| 41 | $TOOLTIP->check_size; |
40 | $TOOLTIP->check_size; |
| 42 | $TOOLTIP->update; |
41 | $TOOLTIP->update; |
| 43 | } |
42 | } |
