diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al b/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al deleted file mode 100644 index 9ee32f44a40..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/Widget/AltKeyInDialog.al +++ /dev/null @@ -1,20 +0,0 @@ -# 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 1676 "blib\lib\Tk\Widget.pm (autosplit into blib\lib\auto\Tk\Widget\AltKeyInDialog.al)" -# ::tk::AltKeyInDialog -- -# <Alt-Key> event handler for standard dialogs. Sends <<AltUnderlined>> -# to button or label which has appropriate underlined character -# -sub AltKeyInDialog -{ - my ($w, $key) = @_; - my $target = $w->FindAltKeyTarget($key); - return if !$target; - $target->eventGenerate('<<AltUnderlined>>'); -} - -# end of Tk::Widget::AltKeyInDialog -1; |