Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from blib/lib/Tk/Toplevel.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package Tk::Toplevel; | |
5 | ||
6 | #line 172 "blib/lib/Tk/Toplevel.pm (autosplit into blib/lib/auto/Tk/Toplevel/FG_In.al)" | |
7 | # tkFocusGroup_In -- | |
8 | # | |
9 | # Handles the <FocusIn> event. Calls the FocusIn command for the newly | |
10 | # focused widget in the focus group. | |
11 | # | |
12 | sub FG_In { | |
13 | my($t, $w, $detail) = @_; | |
14 | if (defined $t->{'_focus'} and $t->{'_focus'} eq $w) { | |
15 | # This is already in focus | |
16 | return; | |
17 | } else { | |
18 | $t->{'_focus'} = $w; | |
19 | $t->{'_FocusIn'}{$w}->Call if exists $t->{'_FocusIn'}{$w}; | |
20 | } | |
21 | } | |
22 | ||
23 | # end of Tk::Toplevel::FG_In | |
24 | 1; |