diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al | 36 |
1 files changed, 0 insertions, 36 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al b/Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al deleted file mode 100644 index 2bcfe3ebf82..00000000000 --- a/Master/tlpkg/tlperl/lib/auto/Tk/FocusOK.al +++ /dev/null @@ -1,36 +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 628 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\FocusOK.al)" -sub FocusOK -{ - my $w = shift; - my $value; - catch { $value = $w->cget('-takefocus') }; - if (!$@ && defined($value)) - { - return 0 if ($value eq '0'); - return $w->viewable if ($value eq '1'); - if ($value) - { - $value = $w->$value(); - return $value if (defined $value); - } - } - if (!$w->viewable) - { - return 0; - } - catch { $value = $w->cget('-state') } ; - if (!$@ && defined($value) && $value eq 'disabled') - { - return 0; - } - $value = grep(/Key|Focus/,$w->Tk::bind(),$w->Tk::bind(ref($w))); - return $value; -} - -# end of Tk::FocusOK -1; |