… | |
… | |
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) { |