diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al')
-rw-r--r-- | Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al new file mode 100644 index 00000000000..74cf18b9b9d --- /dev/null +++ b/Master/tlpkg/tlperl/lib/auto/Tk/Toplevel/FG_In.al @@ -0,0 +1,24 @@ +# NOTE: Derived from blib\lib\Tk\Toplevel.pm. +# Changes made here will be lost when autosplit is run again. +# See AutoSplit.pm. +package Tk::Toplevel; + +#line 172 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_In.al)" +# tkFocusGroup_In -- +# +# Handles the <FocusIn> event. Calls the FocusIn command for the newly +# focused widget in the focus group. +# +sub FG_In { + my($t, $w, $detail) = @_; + if (defined $t->{'_focus'} and $t->{'_focus'} eq $w) { + # This is already in focus + return; + } else { + $t->{'_focus'} = $w; + $t->{'_FocusIn'}{$w}->Call if exists $t->{'_FocusIn'}{$w}; + } +} + +# end of Tk::Toplevel::FG_In +1; |