# NOTE: Derived from blib\lib\Tk.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Tk; #line 638 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\Receive.al)" # If we have sub Clipboard in Tk then use base qw(Tk::Clipboard ....) # calls it when it does its eval "require $base" #sub Clipboard #{my $w = shift; # my $cmd = shift; # croak "Use clipboard\u$cmd()"; #} sub Receive { my $w = shift; warn 'Receive(' . join(',',@_) .')'; die 'Tk rejects send(' . join(',',@_) .")\n"; } # end of Tk::Receive 1;