home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _8f6ebbbc902f504f4b2b14940b72e100 < prev    next >
Encoding:
Text File  |  2004-06-01  |  1.1 KB  |  36 lines
  1. # NOTE: Derived from blib\lib\Tk.pm.
  2. # Changes made here will be lost when autosplit is run again.
  3. # See AutoSplit.pm.
  4. package Tk;
  5.  
  6. #line 508 "blib\lib\Tk.pm (autosplit into blib\lib\auto\Tk\FocusChildren.al)"
  7. #----------------------------------------------------------------------------
  8. # focus.tcl --
  9. #
  10. # This file defines several procedures for managing the input
  11. # focus.
  12. #
  13. # @(#) focus.tcl 1.6 94/12/19 17:06:46
  14. #
  15. # Copyright (c) 1994 Sun Microsystems, Inc.
  16. #
  17. # See the file "license.terms" for information on usage and redistribution
  18. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  19.  
  20. sub FocusChildren { shift->children }
  21.  
  22. #
  23. # focusNext --
  24. # This procedure is invoked to move the input focus to the next window
  25. # after a given one. "Next" is defined in terms of the window
  26. # stacking order, with all the windows underneath a given top-level
  27. # (no matter how deeply nested in the hierarchy) considered except
  28. # for frames and toplevels.
  29. #
  30. # Arguments:
  31. # w - Name of a window: the procedure will set the focus
  32. # to the next window after this one in the traversal
  33. # order.
  34. # end of Tk::FocusChildren
  35. 1;
  36.