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 139 "blib/lib/Tk/Toplevel.pm (autosplit into blib/lib/auto/Tk/Toplevel/FG_BindOut.al)" | |
7 | # tkFocusGroup_BindOut -- | |
8 | # | |
9 | # Add a widget into the "FocusOut" list of the focus group. The | |
10 | # $cmd will be called when the widget loses the focus (User | |
11 | # types Tab or click on another widget). | |
12 | # | |
13 | sub FG_BindOut { | |
14 | my($t, $w, $cmd) = @_; | |
15 | $t->Error("focus group \"$t\" doesn't exist") unless (exists $t->{'_fg'}); | |
16 | $t->{'_FocusOut'}{$w} = Tk::Callback->new($cmd); | |
17 | } | |
18 | ||
19 | # end of Tk::Toplevel::FG_BindOut | |
20 | 1; |