[OpenSPARC-T2-DV] / tools / src / nas,5.n2.os.2 / lib / python / man / mann / focus.n

'\"
'\" Copyright (c) 1990-1994 The Regents of the University of California.
'\" Copyright (c) 1994-1996 Sun Microsystems, Inc.
'\"
'\" See the file "license.terms" for information on usage and redistribution
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
'\" 
'\" RCS: @(#) $Id: focus.n,v 1.2.26.1 2004/10/28 10:19:29 dkf Exp $
'\" 
'\" The definitions below are for supplemental macros used in Tcl/Tk
'\" manual entries.
'\"
'\" .AP type name in/out ?indent?
'\"	Start paragraph describing an argument to a library procedure.
'\"	type is type of argument (int, etc.), in/out is either "in", "out",
'\"	or "in/out" to describe whether procedure reads or modifies arg,
'\"	and indent is equivalent to second arg of .IP (shouldn't ever be
'\"	needed;  use .AS below instead)
'\"
'\" .AS ?type? ?name?
'\"	Give maximum sizes of arguments for setting tab stops.  Type and
'\"	name are examples of largest possible arguments that will be passed
'\"	to .AP later.  If args are omitted, default tab stops are used.
'\"
'\" .BS
'\"	Start box enclosure.  From here until next .BE, everything will be
'\"	enclosed in one large box.
'\"
'\" .BE
'\"	End of box enclosure.
'\"
'\" .CS
'\"	Begin code excerpt.
'\"
'\" .CE
'\"	End code excerpt.
'\"
'\" .VS ?version? ?br?
'\"	Begin vertical sidebar, for use in marking newly-changed parts
'\"	of man pages.  The first argument is ignored and used for recording
'\"	the version when the .VS was added, so that the sidebars can be
'\"	found and removed when they reach a certain age.  If another argument
'\"	is present, then a line break is forced before starting the sidebar.
'\"
'\" .VE
'\"	End of vertical sidebar.
'\"
'\" .DS
'\"	Begin an indented unfilled display.
'\"
'\" .DE
'\"	End of indented unfilled display.
'\"
'\" .SO
'\"	Start of list of standard options for a Tk widget.  The
'\"	options follow on successive lines, in four columns separated
'\"	by tabs.
'\"
'\" .SE
'\"	End of list of standard options for a Tk widget.
'\"
'\" .OP cmdName dbName dbClass
'\"	Start of description of a specific option.  cmdName gives the
'\"	option's name as specified in the class command, dbName gives
'\"	the option's name in the option database, and dbClass gives
'\"	the option's class in the option database.
'\"
'\" .UL arg1 arg2
'\"	Print arg1 underlined, then print arg2 normally.
'\"
'\" RCS: @(#) $Id: man.macros,v 1.4 2000/08/25 06:18:32 ericm Exp $
'\"
'\"	# Set up traps and other miscellaneous stuff for Tcl/Tk man pages.
.if t .wh -1.3i ^B
.nr ^l \n(.l
.ad b
'\"	# Start an argument description
.de AP
.ie !"\\$4"" .TP \\$4
.el \{\
.   ie !"\\$2"" .TP \\n()Cu
.   el          .TP 15
.\}
.ta \\n()Au \\n()Bu
.ie !"\\$3"" \{\
\&\\$1	\\fI\\$2\\fP	(\\$3)
.\".b
.\}
.el \{\
.br
.ie !"\\$2"" \{\
\&\\$1	\\fI\\$2\\fP
.\}
.el \{\
\&\\fI\\$1\\fP
.\}
.\}
..
'\"	# define tabbing values for .AP
.de AS
.nr )A 10n
.if !"\\$1"" .nr )A \\w'\\$1'u+3n
.nr )B \\n()Au+15n
.\"
.if !"\\$2"" .nr )B \\w'\\$2'u+\\n()Au+3n
.nr )C \\n()Bu+\\w'(in/out)'u+2n
..
.AS Tcl_Interp Tcl_CreateInterp in/out
'\"	# BS - start boxed text
'\"	# ^y = starting y location
'\"	# ^b = 1
.de BS
.br
.mk ^y
.nr ^b 1u
.if n .nf
.if n .ti 0
.if n \l'\\n(.lu\(ul'
.if n .fi
..
'\"	# BE - end boxed text (draw box now)
.de BE
.nf
.ti 0
.mk ^t
.ie n \l'\\n(^lu\(ul'
.el \{\
.\"	Draw four-sided box normally, but don't draw top of
.\"	box if the box started on an earlier page.
.ie !\\n(^b-1 \{\
\h'-1.5n'\L'|\\n(^yu-1v'\l'\\n(^lu+3n\(ul'\L'\\n(^tu+1v-\\n(^yu'\l'|0u-1.5n\(ul'
.\}
.el \}\
\h'-1.5n'\L'|\\n(^yu-1v'\h'\\n(^lu+3n'\L'\\n(^tu+1v-\\n(^yu'\l'|0u-1.5n\(ul'
.\}
.\}
.fi
.br
.nr ^b 0
..
'\"	# VS - start vertical sidebar
'\"	# ^Y = starting y location
'\"	# ^v = 1 (for troff;  for nroff this doesn't matter)
.de VS
.if !"\\$2"" .br
.mk ^Y
.ie n 'mc \s12\(br\s0
.el .nr ^v 1u
..
'\"	# VE - end of vertical sidebar
.de VE
.ie n 'mc
.el \{\
.ev 2
.nf
.ti 0
.mk ^t
\h'|\\n(^lu+3n'\L'|\\n(^Yu-1v\(bv'\v'\\n(^tu+1v-\\n(^Yu'\h'-|\\n(^lu+3n'
.sp -1
.fi
.ev
.\}
.nr ^v 0
..
'\"	# Special macro to handle page bottom:  finish off current
'\"	# box/sidebar if in box/sidebar mode, then invoked standard
'\"	# page bottom macro.
.de ^B
.ev 2
'ti 0
'nf
.mk ^t
.if \\n(^b \{\
.\"	Draw three-sided box if this is the box's first page,
.\"	draw two sides but no top otherwise.
.ie !\\n(^b-1 \h'-1.5n'\L'|\\n(^yu-1v'\l'\\n(^lu+3n\(ul'\L'\\n(^tu+1v-\\n(^yu'\h'|0u'\c
.el \h'-1.5n'\L'|\\n(^yu-1v'\h'\\n(^lu+3n'\L'\\n(^tu+1v-\\n(^yu'\h'|0u'\c
.\}
.if \\n(^v \{\
.nr ^x \\n(^tu+1v-\\n(^Yu
\kx\h'-\\nxu'\h'|\\n(^lu+3n'\ky\L'-\\n(^xu'\v'\\n(^xu'\h'|0u'\c
.\}
.bp
'fi
.ev
.if \\n(^b \{\
.mk ^y
.nr ^b 2
.\}
.if \\n(^v \{\
.mk ^Y
.\}
..
'\"	# DS - begin display
.de DS
.RS
.nf
.sp
..
'\"	# DE - end display
.de DE
.fi
.RE
.sp
..
'\"	# SO - start of list of standard options
.de SO
.SH "STANDARD OPTIONS"
.LP
.nf
.ta 5.5c 11c
.ft B
..
'\"	# SE - end of list of standard options
.de SE
.fi
.ft R
.LP
See the \\fBoptions\\fR manual entry for details on the standard options.
..
'\"	# OP - start of full description for a single option
.de OP
.LP
.nf
.ta 4c
Command-Line Name:	\\fB\\$1\\fR
Database Name:	\\fB\\$2\\fR
Database Class:	\\fB\\$3\\fR
.fi
.IP
..
'\"	# CS - begin code excerpt
.de CS
.RS
.nf
.ta .25i .5i .75i 1i
..
'\"	# CE - end code excerpt
.de CE
.fi
.RE
..
.de UL
\\$1\l'|0\(ul'\\$2
..
.TH focus n 4.0 Tk "Tk Built-In Commands"
.BS
'\" Note:  do not modify the .SH NAME line immediately below!
.SH NAME
focus \- Manage the input focus
.SH SYNOPSIS
.nf
\fBfocus\fR
\fBfocus \fIwindow\fR
\fBfocus \fIoption\fR ?\fIarg arg ...\fR?
.fi
.BE

.SH DESCRIPTION
.PP
The \fBfocus\fR command is used to manage the Tk input focus.
At any given time, one window on each display is designated as
the \fIfocus window\fR;  any key press or key release events for the
display are sent to that window.
It is normally up to the window manager to redirect the focus among the
top-level windows of a display.  For example, some window managers
automatically set the input focus to a top-level window whenever
the mouse enters it;  others redirect the input focus only when
the user clicks on a window.
Usually the window manager will set the focus
only to top-level windows, leaving it up to the application to
redirect the focus among the children of the top-level.
.PP
Tk remembers one focus window for each top-level (the most recent
descendant of that top-level to receive the focus);  when the window
manager gives the focus
to a top-level, Tk automatically redirects it to the remembered
window.  Within a top-level Tk uses an \fIexplicit\fR focus model
by default.  Moving the mouse within a top-level does not normally
change the focus;  the focus changes only when a widget
decides explicitly to claim the focus (e.g., because of a button
click), or when the user types a key such as Tab that moves the
focus.
.PP
The Tcl procedure \fBtk_focusFollowsMouse\fR may be invoked to
create an \fIimplicit\fR focus model:  it reconfigures Tk so that
the focus is set to a window whenever the mouse enters it.
The Tcl procedures \fBtk_focusNext\fR and \fBtk_focusPrev\fR
implement a focus order among the windows of a top-level;  they
are used in the default bindings for Tab and Shift-Tab, among other
things.
.PP
The \fBfocus\fR command can take any of the following forms:
.TP
\fBfocus\fR
Returns the path name of the focus window on the display containing
the application's main window,  or an empty string if no window in
this application has the focus on that display.   Note:  it is
better to specify the display explicitly using \fB\-displayof\fR
(see below) so that the code will work in applications using multiple
displays.
.TP
\fBfocus \fIwindow\fR
If the application currently has the input focus on \fIwindow\fR's
display, this command resets the input focus for \fIwindow\fR's display
to \fIwindow\fR and returns an empty string.
If the application doesn't currently have the  input focus on
\fIwindow\fR's display, \fIwindow\fR will be remembered as the focus
for its top-level;  the next time the focus arrives at the top-level,
Tk will redirect it to \fIwindow\fR.
If \fIwindow\fR is an empty string then the command does nothing.
.TP
\fBfocus \-displayof\fR \fIwindow\fR
Returns the name of the focus window on the display containing \fIwindow\fR.
If the focus window for \fIwindow\fR's display isn't in this
application, the return value is an empty string.
.TP
\fBfocus \-force \fIwindow\fR
Sets the focus of \fIwindow\fR's display to \fIwindow\fR, even if
the application doesn't currently have the input focus for the display.
This command should be used sparingly, if at all.
In normal usage, an application should not claim the focus for
itself;  instead, it should wait for the window manager to give it
the focus.
If \fIwindow\fR is an empty string then the command does nothing.
.TP
\fBfocus \-lastfor\fR \fIwindow\fR
Returns the name of the most recent window to have the input focus
among all the windows in the same top-level as \fIwindow\fR.
If no window in that top-level has ever had the input focus, or
if the most recent focus window has been deleted, then the name
of the top-level is returned.  The return value is the window that
will receive the input focus the next time the window manager gives
the focus to the top-level.
.SH "QUIRKS"
.PP
When an internal window receives the input focus, Tk doesn't actually
set the X focus to that window;  as far as X is concerned, the focus
will stay on the top-level window containing the window with the focus.
However, Tk generates FocusIn and FocusOut events just as if the X
focus were on the internal window.   This approach gets around a
number of problems that would occur if the X focus were actually moved;
the fact that the X focus is on the top-level is invisible unless
you use C code to query the X server directly.
.SH "EXAMPLE"
To make a window that only participates in the focus traversal ring
when a variable is set, add the following bindings to the widgets
\fIbefore\fR and \fIafter\fR it in that focus ring:
.CS
button .before -text "Before"
button .middle -text "Middle"
button .after  -text "After"
checkbutton .flag -variable traverseToMiddle -takefocus 0
pack .flag -side left
pack .before .middle .after
bind .before <Tab> {
   if {!$traverseToMiddle} {
      \fBfocus\fR .after
      break
   }
}
bind .after <Shift-Tab> {
   if {!$traverseToMiddle} {
      \fBfocus\fR .before
      break
   }
}
\fBfocus\fR .before
.CE

.SH KEYWORDS
events, focus, keyboard, top-level, window manager
Commit	Line	Data
86530b38 AT	1	'\"
	2	'\" Copyright (c) 1990-1994 The Regents of the University of California.
	3	'\" Copyright (c) 1994-1996 Sun Microsystems, Inc.
	4	'\"
	5	'\" See the file "license.terms" for information on usage and redistribution
	6	'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
	7	'\"
	8	'\" RCS: @(#) $Id: focus.n,v 1.2.26.1 2004/10/28 10:19:29 dkf Exp $
	9	'\"
	10	'\" The definitions below are for supplemental macros used in Tcl/Tk
	11	'\" manual entries.
	12	'\"
	13	'\" .AP type name in/out ?indent?
	14	'\" Start paragraph describing an argument to a library procedure.
	15	'\" type is type of argument (int, etc.), in/out is either "in", "out",
	16	'\" or "in/out" to describe whether procedure reads or modifies arg,
	17	'\" and indent is equivalent to second arg of .IP (shouldn't ever be
	18	'\" needed; use .AS below instead)
	19	'\"
	20	'\" .AS ?type? ?name?
	21	'\" Give maximum sizes of arguments for setting tab stops. Type and
	22	'\" name are examples of largest possible arguments that will be passed
	23	'\" to .AP later. If args are omitted, default tab stops are used.
	24	'\"
	25	'\" .BS
	26	'\" Start box enclosure. From here until next .BE, everything will be
	27	'\" enclosed in one large box.
	28	'\"
	29	'\" .BE
	30	'\" End of box enclosure.
	31	'\"
	32	'\" .CS
	33	'\" Begin code excerpt.
	34	'\"
	35	'\" .CE
	36	'\" End code excerpt.
	37	'\"
	38	'\" .VS ?version? ?br?
	39	'\" Begin vertical sidebar, for use in marking newly-changed parts
	40	'\" of man pages. The first argument is ignored and used for recording
	41	'\" the version when the .VS was added, so that the sidebars can be
	42	'\" found and removed when they reach a certain age. If another argument
	43	'\" is present, then a line break is forced before starting the sidebar.
	44	'\"
	45	'\" .VE
	46	'\" End of vertical sidebar.
	47	'\"
	48	'\" .DS
	49	'\" Begin an indented unfilled display.
	50	'\"
	51	'\" .DE
	52	'\" End of indented unfilled display.
	53	'\"
	54	'\" .SO
	55	'\" Start of list of standard options for a Tk widget. The
	56	'\" options follow on successive lines, in four columns separated
	57	'\" by tabs.
	58	'\"
	59	'\" .SE
	60	'\" End of list of standard options for a Tk widget.
	61	'\"
	62	'\" .OP cmdName dbName dbClass
	63	'\" Start of description of a specific option. cmdName gives the
	64	'\" option's name as specified in the class command, dbName gives
65	'\" the option's name in the option database, and dbClass gives
66	'\" the option's class in the option database.
67	'\"
68	'\" .UL arg1 arg2
69	'\" Print arg1 underlined, then print arg2 normally.
70	'\"
71	'\" RCS: @(#) $Id: man.macros,v 1.4 2000/08/25 06:18:32 ericm Exp $
72	'\"
73	'\" # Set up traps and other miscellaneous stuff for Tcl/Tk man pages.
74	.if t .wh -1.3i ^B
75	.nr ^l \n(.l
76	.ad b
77	'\" # Start an argument description
78	.de AP
79	.ie !"\\$4"" .TP \\$4
80	.el \{\
81	. ie !"\\$2"" .TP \\n()Cu
82	. el .TP 15
83	.\}
84	.ta \\n()Au \\n()Bu
85	.ie !"\\$3"" \{\
86	\&\\$1 \\fI\\$2\\fP (\\$3)
87	.\".b
88	.\}
89	.el \{\
90	.br
91	.ie !"\\$2"" \{\
92	\&\\$1 \\fI\\$2\\fP
93	.\}
94	.el \{\
95	\&\\fI\\$1\\fP
96	.\}
97	.\}
98	..
99	'\" # define tabbing values for .AP
100	.de AS
101	.nr )A 10n
102	.if !"\\$1"" .nr )A \\w'\\$1'u+3n
103	.nr )B \\n()Au+15n
104	.\"
105	.if !"\\$2"" .nr )B \\w'\\$2'u+\\n()Au+3n
106	.nr )C \\n()Bu+\\w'(in/out)'u+2n
107	..
108	.AS Tcl_Interp Tcl_CreateInterp in/out
109	'\" # BS - start boxed text
110	'\" # ^y = starting y location
111	'\" # ^b = 1
112	.de BS
113	.br
114	.mk ^y
115	.nr ^b 1u
116	.if n .nf
117	.if n .ti 0
118	.if n \l'\\n(.lu\(ul'
119	.if n .fi
120	..
121	'\" # BE - end boxed text (draw box now)
122	.de BE
123	.nf
124	.ti 0
125	.mk ^t
126	.ie n \l'\\n(^lu\(ul'
127	.el \{\
128	.\" Draw four-sided box normally, but don't draw top of
129	.\" box if the box started on an earlier page.
130	.ie !\\n(^b-1 \{\
131	\h'-1.5n'\L'\|\\n(^yu-1v'\l'\\n(^lu+3n\(ul'\L'\\n(^tu+1v-\\n(^yu'\l'\|0u-1.5n\(ul'
132	.\}
133	.el \}\
134	\h'-1.5n'\L'\|\\n(^yu-1v'\h'\\n(^lu+3n'\L'\\n(^tu+1v-\\n(^yu'\l'\|0u-1.5n\(ul'
135	.\}
136	.\}
137	.fi
138	.br
139	.nr ^b 0
140	..
141	'\" # VS - start vertical sidebar
142	'\" # ^Y = starting y location
143	'\" # ^v = 1 (for troff; for nroff this doesn't matter)
144	.de VS
145	.if !"\\$2"" .br
146	.mk ^Y
147	.ie n 'mc \s12\(br\s0
148	.el .nr ^v 1u
149	..
150	'\" # VE - end of vertical sidebar
151	.de VE
152	.ie n 'mc
153	.el \{\
154	.ev 2
155	.nf
156	.ti 0
157	.mk ^t
158	\h'\|\\n(^lu+3n'\L'\|\\n(^Yu-1v\(bv'\v'\\n(^tu+1v-\\n(^Yu'\h'-\|\\n(^lu+3n'
159	.sp -1
160	.fi
161	.ev
162	.\}
163	.nr ^v 0
164	..
165	'\" # Special macro to handle page bottom: finish off current
166	'\" # box/sidebar if in box/sidebar mode, then invoked standard
167	'\" # page bottom macro.
168	.de ^B
169	.ev 2
170	'ti 0
171	'nf
172	.mk ^t
173	.if \\n(^b \{\
174	.\" Draw three-sided box if this is the box's first page,
175	.\" draw two sides but no top otherwise.
176	.ie !\\n(^b-1 \h'-1.5n'\L'\|\\n(^yu-1v'\l'\\n(^lu+3n\(ul'\L'\\n(^tu+1v-\\n(^yu'\h'\|0u'\c
177	.el \h'-1.5n'\L'\|\\n(^yu-1v'\h'\\n(^lu+3n'\L'\\n(^tu+1v-\\n(^yu'\h'\|0u'\c
178	.\}
179	.if \\n(^v \{\
180	.nr ^x \\n(^tu+1v-\\n(^Yu
181	\kx\h'-\\nxu'\h'\|\\n(^lu+3n'\ky\L'-\\n(^xu'\v'\\n(^xu'\h'\|0u'\c
182	.\}
183	.bp
184	'fi
185	.ev
186	.if \\n(^b \{\
187	.mk ^y
188	.nr ^b 2
189	.\}
190	.if \\n(^v \{\
191	.mk ^Y
192	.\}
193	..
194	'\" # DS - begin display
195	.de DS
196	.RS
197	.nf
198	.sp
199	..
200	'\" # DE - end display
201	.de DE
202	.fi
203	.RE
204	.sp
205	..
206	'\" # SO - start of list of standard options
207	.de SO
208	.SH "STANDARD OPTIONS"
209	.LP
210	.nf
211	.ta 5.5c 11c
212	.ft B
213	..
214	'\" # SE - end of list of standard options
215	.de SE
216	.fi
217	.ft R
218	.LP
219	See the \\fBoptions\\fR manual entry for details on the standard options.
220	..
221	'\" # OP - start of full description for a single option
222	.de OP
223	.LP
224	.nf
225	.ta 4c
226	Command-Line Name: \\fB\\$1\\fR
227	Database Name: \\fB\\$2\\fR
228	Database Class: \\fB\\$3\\fR
229	.fi
230	.IP
231	..
232	'\" # CS - begin code excerpt
233	.de CS
234	.RS
235	.nf
236	.ta .25i .5i .75i 1i
237	..
238	'\" # CE - end code excerpt
239	.de CE
240	.fi
241	.RE
242	..
243	.de UL
244	\\$1\l'\|0\(ul'\\$2
245	..
246	.TH focus n 4.0 Tk "Tk Built-In Commands"
247	.BS
248	'\" Note: do not modify the .SH NAME line immediately below!
249	.SH NAME
250	focus \- Manage the input focus
251	.SH SYNOPSIS
252	.nf
253	\fBfocus\fR
254	\fBfocus \fIwindow\fR
255	\fBfocus \fIoption\fR ?\fIarg arg ...\fR?
256	.fi
257	.BE
258
259	.SH DESCRIPTION
260	.PP
261	The \fBfocus\fR command is used to manage the Tk input focus.
262	At any given time, one window on each display is designated as
263	the \fIfocus window\fR; any key press or key release events for the
264	display are sent to that window.
265	It is normally up to the window manager to redirect the focus among the
266	top-level windows of a display. For example, some window managers
267	automatically set the input focus to a top-level window whenever
268	the mouse enters it; others redirect the input focus only when
269	the user clicks on a window.
270	Usually the window manager will set the focus
271	only to top-level windows, leaving it up to the application to
272	redirect the focus among the children of the top-level.
273	.PP
274	Tk remembers one focus window for each top-level (the most recent
275	descendant of that top-level to receive the focus); when the window
276	manager gives the focus
277	to a top-level, Tk automatically redirects it to the remembered
278	window. Within a top-level Tk uses an \fIexplicit\fR focus model
279	by default. Moving the mouse within a top-level does not normally
280	change the focus; the focus changes only when a widget
281	decides explicitly to claim the focus (e.g., because of a button
282	click), or when the user types a key such as Tab that moves the
283	focus.
284	.PP
285	The Tcl procedure \fBtk_focusFollowsMouse\fR may be invoked to
286	create an \fIimplicit\fR focus model: it reconfigures Tk so that
287	the focus is set to a window whenever the mouse enters it.
288	The Tcl procedures \fBtk_focusNext\fR and \fBtk_focusPrev\fR
289	implement a focus order among the windows of a top-level; they
290	are used in the default bindings for Tab and Shift-Tab, among other
291	things.
292	.PP
293	The \fBfocus\fR command can take any of the following forms:
294	.TP
295	\fBfocus\fR
296	Returns the path name of the focus window on the display containing
297	the application's main window, or an empty string if no window in
298	this application has the focus on that display. Note: it is
299	better to specify the display explicitly using \fB\-displayof\fR
300	(see below) so that the code will work in applications using multiple
301	displays.
302	.TP
303	\fBfocus \fIwindow\fR
304	If the application currently has the input focus on \fIwindow\fR's
305	display, this command resets the input focus for \fIwindow\fR's display
306	to \fIwindow\fR and returns an empty string.
307	If the application doesn't currently have the input focus on
308	\fIwindow\fR's display, \fIwindow\fR will be remembered as the focus
309	for its top-level; the next time the focus arrives at the top-level,
310	Tk will redirect it to \fIwindow\fR.
311	If \fIwindow\fR is an empty string then the command does nothing.
312	.TP
313	\fBfocus \-displayof\fR \fIwindow\fR
314	Returns the name of the focus window on the display containing \fIwindow\fR.
315	If the focus window for \fIwindow\fR's display isn't in this
316	application, the return value is an empty string.
317	.TP
318	\fBfocus \-force \fIwindow\fR
319	Sets the focus of \fIwindow\fR's display to \fIwindow\fR, even if
320	the application doesn't currently have the input focus for the display.
321	This command should be used sparingly, if at all.
322	In normal usage, an application should not claim the focus for
323	itself; instead, it should wait for the window manager to give it
324	the focus.
325	If \fIwindow\fR is an empty string then the command does nothing.
326	.TP
327	\fBfocus \-lastfor\fR \fIwindow\fR
328	Returns the name of the most recent window to have the input focus
329	among all the windows in the same top-level as \fIwindow\fR.
330	If no window in that top-level has ever had the input focus, or
331	if the most recent focus window has been deleted, then the name
332	of the top-level is returned. The return value is the window that
333	will receive the input focus the next time the window manager gives
334	the focus to the top-level.
335	.SH "QUIRKS"
336	.PP
337	When an internal window receives the input focus, Tk doesn't actually
338	set the X focus to that window; as far as X is concerned, the focus
339	will stay on the top-level window containing the window with the focus.
340	However, Tk generates FocusIn and FocusOut events just as if the X
341	focus were on the internal window. This approach gets around a
342	number of problems that would occur if the X focus were actually moved;
343	the fact that the X focus is on the top-level is invisible unless
344	you use C code to query the X server directly.
345	.SH "EXAMPLE"
346	To make a window that only participates in the focus traversal ring
347	when a variable is set, add the following bindings to the widgets
348	\fIbefore\fR and \fIafter\fR it in that focus ring:
349	.CS
350	button .before -text "Before"
351	button .middle -text "Middle"
352	button .after -text "After"
353	checkbutton .flag -variable traverseToMiddle -takefocus 0
354	pack .flag -side left
355	pack .before .middle .after
356	bind .before <Tab> {
357	if {!$traverseToMiddle} {
358	\fBfocus\fR .after
359	break
360	}
361	}
362	bind .after <Shift-Tab> {
363	if {!$traverseToMiddle} {
364	\fBfocus\fR .before
365	break
366	}
367	}
368	\fBfocus\fR .before
369	.CE
370
371	.SH KEYWORDS
372	events, focus, keyboard, top-level, window manager