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