diff options
Diffstat (limited to 'Master/perltl/site/lib/auto/Tk/Selection.al')
-rw-r--r-- | Master/perltl/site/lib/auto/Tk/Selection.al | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/Master/perltl/site/lib/auto/Tk/Selection.al b/Master/perltl/site/lib/auto/Tk/Selection.al deleted file mode 100644 index 0d50a9f31df..00000000000 --- a/Master/perltl/site/lib/auto/Tk/Selection.al +++ /dev/null @@ -1,18 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 628 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\Selection.al)" -# These wrappers don't use method syntax so need to live -# in same package as raw Tk routines are newXS'ed into. - -sub Selection -{my $widget = shift; - my $cmd = shift; - croak 'Use SelectionOwn/SelectionOwner' if ($cmd eq 'own'); - croak "Use Selection\u$cmd()"; -} - -# end of Tk::Selection -1; |