diff options
| author | jenglish@flightlab.com <jenglish> | 2002-06-14 22:25:11 (GMT) |
|---|---|---|
| committer | jenglish@flightlab.com <jenglish> | 2002-06-14 22:25:11 (GMT) |
| commit | 5748cc239dc0eac72930c6662ba910bba6249dcc (patch) | |
| tree | db4f9b64945413c671514dd1b7f254700c3649cb /generic/tkFocus.c | |
| parent | d42f8190422a500cb7fce0b3d035627ed8216371 (diff) | |
| download | tk-5748cc239dc0eac72930c6662ba910bba6249dcc.zip tk-5748cc239dc0eac72930c6662ba910bba6249dcc.tar.gz tk-5748cc239dc0eac72930c6662ba910bba6249dcc.tar.bz2 | |
TIP #47 "Modifying Tk to Allow Writing X Window managers"
(patch from Neil McKay).
* Add CirculateRequest, Create, MapRequest, ResizeRequest,
and ConfigureRequest event types;
* Split TK_TOPLEVEL flag into TK_TOPLEVEL, TK_HAS_WRAPPER,
TK_WIN_MANAGED, and TK_TOP_HIERARCHY.
Diffstat (limited to 'generic/tkFocus.c')
| -rw-r--r-- | generic/tkFocus.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tkFocus.c b/generic/tkFocus.c index c50fc3d..b1ba279 100644 --- a/generic/tkFocus.c +++ b/generic/tkFocus.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkFocus.c,v 1.7 2002/04/12 10:03:24 hobbs Exp $ + * RCS: @(#) $Id: tkFocus.c,v 1.8 2002/06/14 22:25:12 jenglish Exp $ */ #include "tkInt.h" @@ -216,7 +216,7 @@ Tk_FocusObjCmd(clientData, interp, objc, objv) } for (topLevelPtr = newPtr; topLevelPtr != NULL; topLevelPtr = topLevelPtr->parentPtr) { - if (topLevelPtr->flags & TK_TOP_LEVEL) { + if (topLevelPtr->flags & TK_TOP_HIERARCHY) { for (tlFocusPtr = newPtr->mainPtr->tlFocusPtr; tlFocusPtr != NULL; tlFocusPtr = tlFocusPtr->nextPtr) { @@ -588,7 +588,7 @@ TkSetFocusWin(winPtr, force) if (!(topLevelPtr->flags & TK_MAPPED)) { allMapped = 0; } - if (topLevelPtr->flags & TK_TOP_LEVEL) { + if (topLevelPtr->flags & TK_TOP_HIERARCHY) { break; } } |