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