# NOTE: Derived from blib/lib/Tk.pm.
# Changes made here will be lost when autosplit is run again.
#line 449 "blib/lib/Tk.pm (autosplit into blib/lib/auto/Tk/focusNext.al)"
# Descend to just before the first child of the current widget.
my @children = $cur->FocusChildren();
# Look for the next sibling that isn't a top-level.
next if ($cur->toplevel == $cur);
# No more siblings, so go to the current widget's parent.
# If it's a top-level, break out of the loop, otherwise
# look for its next sibling.
last if ($cur->toplevel() == $cur);
$parent = $parent->parent();
@children = $parent->FocusChildren();
$i = lsearch(\@children,$cur);
if ($cur == $w || $cur->FocusOK)