home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _f0345a6136f84b5cc71aecdd6b547983 < prev    next >
Text File  |  2004-06-01  |  677b  |  25 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 172 "blib\lib\Tk\Toplevel.pm (autosplit into blib\lib\auto\Tk\Toplevel\FG_In.al)"
  7. # tkFocusGroup_In --
  8. #
  9. #    Handles the <FocusIn> event. Calls the FocusIn command for the newly
  10. #    focused widget in the focus group.
  11. #
  12. sub FG_In {
  13.     my($t, $w, $detail) = @_;
  14.     if (defined $t->{'_focus'} and $t->{'_focus'} eq $w) {
  15.     # This is already in focus
  16.     return;
  17.     } else {
  18.     $t->{'_focus'} = $w;
  19.         $t->{'_FocusIn'}{$w}->Call if exists $t->{'_FocusIn'}{$w};
  20.     }
  21. }
  22.  
  23. # end of Tk::Toplevel::FG_In
  24. 1;
  25.