| … | |
… | |
| 2978 | } |
2978 | } |
| 2979 | |
2979 | |
| 2980 | sub set_tooltip_from { |
2980 | sub set_tooltip_from { |
| 2981 | my ($self, $widget) = @_; |
2981 | my ($self, $widget) = @_; |
| 2982 | |
2982 | |
| 2983 | $widget->{tooltip} = CFPlus::Pod::as_label CFPlus::Pod::section tooltip => $1 |
2983 | $widget->{tooltip} = CFPlus::Pod::section_label tooltip => $1 |
| 2984 | if $widget->{tooltip} =~ /^#(.*)$/; |
2984 | if $widget->{tooltip} =~ /^#(.*)$/; |
| 2985 | |
2985 | |
| 2986 | my $tooltip = $widget->{tooltip}; |
2986 | my $tooltip = $widget->{tooltip}; |
| 2987 | |
2987 | |
| 2988 | if ($ENV{CFPLUS_DEBUG} & 2) { |
2988 | if ($ENV{CFPLUS_DEBUG} & 2) { |
