Commit | Line | Data |
---|---|---|
86530b38 AT |
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 422 "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; |