# NOTE: Derived from blib/lib/Tk/Toplevel.pm.
# Changes made here will be lost when autosplit is run again.
#line 80 "blib/lib/Tk/Toplevel.pm (autosplit into blib/lib/auto/Tk/Toplevel/FG_Create.al)"
#----------------------------------------------------------------------
# Focus groups are used to handle the user's focusing actions inside a
# One example of using focus groups is: when the user focuses on an
# entry, the text in the entry is highlighted and the cursor is put to
# the end of the text. When the user changes focus to another widget,
# the text in the previously focused entry is validated.
#----------------------------------------------------------------------
# Create a focus group. All the widgets in a focus group must be
# within the same focus toplevel. Each toplevel can have only
# one focus group, which is identified by the name of the
unless (exists $t->{'_fg'}) {
$t->bind('<FocusIn>', sub {
$t->bind('<FocusOut>', sub {
$t->bind('<Destroy>', sub {
# <Destroy> is not sufficient to break loops if never mapped.
$t->OnDestroy([$t,'FG_Destroy']);
# end of Tk::Toplevel::FG_Create