# NOTE: Derived from ../blib/lib/Tk/Listbox.pm.
# Changes made here will be lost when autosplit is run again.
#line 356 "../blib/lib/Tk/Listbox.pm (autosplit into ../blib/lib/auto/Tk/Listbox/UpDown.al)"
# Moves the location cursor (active element) up or down by one element,
# and changes the selection if we're in browse or extended selection
# w - The listbox widget.
# amount - +1 to move down one item, -1 to move back one item.
$w->activate($w->index('active')+$amount);
$LNet__0 = $w->cget('-selectmode');
if ($LNet__0 eq 'browse')
$w->selectionClear(0,'end');
$w->selectionSet('active')
elsif ($LNet__0 eq 'extended')
$w->selectionClear(0,'end');
$w->selectionSet('active');
$w->selectionAnchor('active');
$Prev = $w->index('active');
# end of Tk::Listbox::UpDown