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 128 "blib/lib/Tk/Toplevel.pm (autosplit into blib/lib/auto/Tk/Toplevel/FG_BindIn.al)" | |
7 | # tkFocusGroup_BindIn -- | |
8 | # | |
9 | # Add a widget into the "FocusIn" list of the focus group. The $cmd will be | |
10 | # called when the widget is focused on by the user. | |
11 | # | |
12 | sub FG_BindIn { | |
13 | my($t, $w, $cmd) = @_; | |
14 | $t->Error("focus group \"$t\" doesn't exist") unless (exists $t->{'_fg'}); | |
15 | $t->{'_FocusIn'}{$w} = Tk::Callback->new($cmd); | |
16 | } | |
17 | ||
18 | # end of Tk::Toplevel::FG_BindIn | |
19 | 1; |