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 151 "blib/lib/Tk/Toplevel.pm (autosplit into blib/lib/auto/Tk/Toplevel/FG_Destroy.al)" | |
7 | # tkFocusGroup_Destroy -- | |
8 | # | |
9 | # Cleans up when members of the focus group is deleted, or when the | |
10 | # toplevel itself gets deleted. | |
11 | # | |
12 | sub FG_Destroy { | |
13 | my($t, $w) = @_; | |
14 | if (!defined($w) || $t == $w) { | |
15 | delete $t->{'_fg'}; | |
16 | delete $t->{'_focus'}; | |
17 | delete $t->{'_FocusOut'}; | |
18 | delete $t->{'_FocusIn'}; | |
19 | } else { | |
20 | if (exists $t->{'_focus'}) { | |
21 | delete $t->{'_focus'} if ($t->{'_focus'} == $w); | |
22 | } | |
23 | delete $t->{'_FocusIn'}{$w}; | |
24 | delete $t->{'_FocusOut'}{$w}; | |
25 | } | |
26 | } | |
27 | ||
28 | # end of Tk::Toplevel::FG_Destroy | |
29 | 1; |