# NOTE: Derived from ../blib/lib/Tk/Listbox.pm.
# Changes made here will be lost when autosplit is run again.
#line 511 "../blib/lib/Tk/Listbox.pm (autosplit into ../blib/lib/auto/Tk/Listbox/clipboardPaste.al)"
my $index = $w->index('active') || $w->index($w->XEvent->xy);
eval {local $SIG{__DIE__}; $str = $w->clipboardGet };
foreach (split("\n",$str))
# end of Tk::Listbox::clipboardPaste