diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al b/Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al deleted file mode 100644 index 18eece41cd6..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/focusNext.al +++ /dev/null @@ -1,45 +0,0 @@ -# NOTE: Derived from blib\lib\Tk.pm. -# Changes made here will be lost when autosplit is run again. -# See AutoSplit.pm. -package Tk; - -#line 535 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\focusNext.al)" -sub focusNext -{ - my $w = shift; - my $cur = $w; - while (1) - { - # Descend to just before the first child of the current widget. - my $parent = $cur; - my @children = $cur->FocusChildren(); - my $i = -1; - # Look for the next sibling that isn't a top-level. - while (1) - { - $i += 1; - if ($i < @children) - { - $cur = $children[$i]; - next if ($cur->toplevel == $cur); - last - } - # 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. - $cur = $parent; - last if ($cur->toplevel() == $cur); - $parent = $parent->parent(); - @children = $parent->FocusChildren(); - $i = lsearch(\@children,$cur); - } - if ($cur == $w || $cur->FocusOK) - { - $cur->tabFocus; - return; - } - } -} - -# end of Tk::focusNext -1; |