home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2004 December / PCpro_2004_12.ISO / files / webserver / xampp / xampp-perl-addon-1.4.9-installer.exe / FG_In.al < prev    next >
Encoding:
Text File  |  2004-06-01  |  677 b   |  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.