| … | |
… | |
| 6 | use Scalar::Util (); |
6 | use Scalar::Util (); |
| 7 | use List::Util (); |
7 | use List::Util (); |
| 8 | use Event; |
8 | use Event; |
| 9 | |
9 | |
| 10 | use CFPlus; |
10 | use CFPlus; |
|
|
11 | use CFPlus::Pod; |
| 11 | use CFPlus::Texture; |
12 | use CFPlus::Texture; |
| 12 | |
13 | |
| 13 | our ($FOCUS, $HOVER, $GRAB); # various widgets |
14 | our ($FOCUS, $HOVER, $GRAB); # various widgets |
| 14 | |
15 | |
| 15 | our $LAYOUT; |
16 | our $LAYOUT; |
| … | |
… | |
| 2976 | ) |
2977 | ) |
| 2977 | } |
2978 | } |
| 2978 | |
2979 | |
| 2979 | sub set_tooltip_from { |
2980 | sub set_tooltip_from { |
| 2980 | my ($self, $widget) = @_; |
2981 | my ($self, $widget) = @_; |
|
|
2982 | |
|
|
2983 | $widget->{tooltip} = CFPlus::Pod::as_label CFPlus::Pod::section tooltip => $1 |
|
|
2984 | if $widget->{tooltip} =~ /^#(.*)$/; |
| 2981 | |
2985 | |
| 2982 | my $tooltip = $widget->{tooltip}; |
2986 | my $tooltip = $widget->{tooltip}; |
| 2983 | |
2987 | |
| 2984 | if ($ENV{CFPLUS_DEBUG} & 2) { |
2988 | if ($ENV{CFPLUS_DEBUG} & 2) { |
| 2985 | $tooltip .= "\n\n" . (ref $widget) . "\n" |
2989 | $tooltip .= "\n\n" . (ref $widget) . "\n" |
