Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from blib/lib/Tk.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package Tk; | |
5 | ||
6 | #line 638 "blib/lib/Tk.pm (autosplit into blib/lib/auto/Tk/Receive.al)" | |
7 | # If we have sub Clipboard in Tk then use base qw(Tk::Clipboard ....) | |
8 | # calls it when it does its eval "require $base" | |
9 | #sub Clipboard | |
10 | #{my $w = shift; | |
11 | # my $cmd = shift; | |
12 | # croak "Use clipboard\u$cmd()"; | |
13 | #} | |
14 | ||
15 | sub Receive | |
16 | { | |
17 | my $w = shift; | |
18 | warn 'Receive(' . join(',',@_) .')'; | |
19 | die 'Tk rejects send(' . join(',',@_) .")\n"; | |
20 | } | |
21 | ||
22 | # end of Tk::Receive | |
23 | 1; |