# NOTE: Derived from blib/lib/Tk.pm.
# Changes made here will be lost when autosplit is run again.
#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"
# croak "Use clipboard\u$cmd()";
warn 'Receive(' . join(',',@_) .')';
die 'Tk rejects send(' . join(',',@_) .")\n";