diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Tk/Widget/UnderlineAmpersand.al')
-rwxr-xr-x | Master/tlpkg/tlperl/lib/auto/Tk/Widget/UnderlineAmpersand.al | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/UnderlineAmpersand.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/UnderlineAmpersand.al new file mode 100755 index 00000000000..f1eee316c7a --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/UnderlineAmpersand.al @@ -0,0 +1,29 @@ +# NOTE: Derived from blib\lib\Tk\Widget.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk::Widget; + +#line 1582 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\UnderlineAmpersand.al)" +# ::tk::UnderlineAmpersand -- +# This procedure takes some text with ampersand and returns +# text w/o ampersand and position of the ampersand. +# Double ampersands are converted to single ones. +# Position returned is -1 when there is no ampersand. +# +sub UnderlineAmpersand +{ + my (undef,$text) = @_; + if ($text =~ m{(?<!&)&(?!&)}g) + { + my $idx = pos $text; + $text =~ s{(?<!&)&(?!&)}{}; + ($text, $idx); + } + else + { + ($text, -1); + } +} + +# end of Tk::Widget::UnderlineAmpersand +1; |