home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 7: Programming / CDAT7.iso / Share / Editores / Perl5 / perl / lib / site / auto / Tk / FocusChildren.al < prev    next >
Encoding:
Text File  |  1997-08-10  |  990 b   |  32 lines
  1. # NOTE: Derived from blib\lib\Tk.pm.  Changes made here will be lost.
  2. package Tk;
  3.  
  4. #----------------------------------------------------------------------------
  5. # focus.tcl --
  6. #
  7. # This file defines several procedures for managing the input
  8. # focus.
  9. #
  10. # @(#) focus.tcl 1.6 94/12/19 17:06:46
  11. #
  12. # Copyright (c) 1994 Sun Microsystems, Inc.
  13. #
  14. # See the file "license.terms" for information on usage and redistribution
  15. # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  16.  
  17. sub FocusChildren { shift->children }
  18.  
  19. #
  20. # focusNext --
  21. # This procedure is invoked to move the input focus to the next window
  22. # after a given one. "Next" is defined in terms of the window
  23. # stacking order, with all the windows underneath a given top-level
  24. # (no matter how deeply nested in the hierarchy) considered except
  25. # for frames and toplevels.
  26. #
  27. # Arguments:
  28. # w - Name of a window: the procedure will set the focus
  29. # to the next window after this one in the traversal
  30. # order.
  31. 1;
  32.