home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _b471912a6953b4dbc201903a3929ebfc < prev    next >
Encoding:
Text File  |  2004-06-01  |  782 b   |  30 lines
  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;
  30.