diff options
author | donal.k.fellows@manchester.ac.uk <dkf> | 2004-06-18 21:26:09 (GMT) |
---|---|---|
committer | donal.k.fellows@manchester.ac.uk <dkf> | 2004-06-18 21:26:09 (GMT) |
commit | 33c04a8abc7ef285544104c3ea396c16c68321e1 (patch) | |
tree | 89d3101166d52457f4999ded2f251ed137b12500 | |
parent | 450f5d24d0b0315124aa27345a6401164d1aa8ec (diff) | |
download | tk-33c04a8abc7ef285544104c3ea396c16c68321e1.zip tk-33c04a8abc7ef285544104c3ea396c16c68321e1.tar.gz tk-33c04a8abc7ef285544104c3ea396c16c68321e1.tar.bz2 |
Added example
-rw-r--r-- | doc/focus.n | 28 |
1 files changed, 26 insertions, 2 deletions
diff --git a/doc/focus.n b/doc/focus.n index bcc11e1..db57196 100644 --- a/doc/focus.n +++ b/doc/focus.n @@ -5,7 +5,7 @@ '\" 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 1998/09/14 18:22:56 stanton Exp $ +'\" RCS: @(#) $Id: focus.n,v 1.3 2004/06/18 21:26:09 dkf Exp $ '\" .so man.macros .TH focus n 4.0 Tk "Tk Built-In Commands" @@ -97,7 +97,6 @@ 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 @@ -108,6 +107,31 @@ 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 |