diff options
| author | jenglish <jenglish@noemail.net> | 2002-06-14 22:25:10 (GMT) |
|---|---|---|
| committer | jenglish <jenglish@noemail.net> | 2002-06-14 22:25:10 (GMT) |
| commit | be685bc42b5fe903a17f680bd393334fa7c13821 (patch) | |
| tree | db4f9b64945413c671514dd1b7f254700c3649cb /generic/tkCmds.c | |
| parent | 241fbc3cb710c0d571462fabfe1337a9cc9f3fa1 (diff) | |
| download | tk-be685bc42b5fe903a17f680bd393334fa7c13821.zip tk-be685bc42b5fe903a17f680bd393334fa7c13821.tar.gz tk-be685bc42b5fe903a17f680bd393334fa7c13821.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.
FossilOrigin-Name: ad38fbacd7328c607131ee691e933fcc9aa67d3e
Diffstat (limited to 'generic/tkCmds.c')
| -rw-r--r-- | generic/tkCmds.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tkCmds.c b/generic/tkCmds.c index c1b6275..1ef3361 100644 --- a/generic/tkCmds.c +++ b/generic/tkCmds.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tkCmds.c,v 1.23 2002/03/20 22:55:16 dgp Exp $ + * RCS: @(#) $Id: tkCmds.c,v 1.24 2002/06/14 22:25:12 jenglish Exp $ */ #include "tkPort.h" @@ -270,7 +270,7 @@ TkBindEventProc(winPtr, eventPtr) objPtr[0] = (ClientData) winPtr->pathName; objPtr[1] = (ClientData) winPtr->classUid; for (topLevPtr = winPtr; - (topLevPtr != NULL) && !(topLevPtr->flags & TK_TOP_LEVEL); + (topLevPtr != NULL) && !(topLevPtr->flags & TK_TOP_HIERARCHY); topLevPtr = topLevPtr->parentPtr) { /* Empty loop body. */ } @@ -337,7 +337,7 @@ Tk_BindtagsObjCmd(clientData, interp, objc, objv) Tcl_ListObjAppendElement(interp, listPtr, Tcl_NewStringObj(winPtr->classUid, -1)); winPtr2 = winPtr; - while ((winPtr2 != NULL) && !(Tk_IsTopLevel(winPtr2))) { + while ((winPtr2 != NULL) && !(Tk_TopWinHierarchy(winPtr2))) { winPtr2 = winPtr2->parentPtr; } if ((winPtr != winPtr2) && (winPtr2 != NULL)) { @@ -1246,7 +1246,7 @@ Tk_WinfoObjCmd(clientData, interp, objc, objv) if ((winPtr == NULL) || !(winPtr->flags & TK_MAPPED)) { break; } - if (winPtr->flags & TK_TOP_LEVEL) { + if (winPtr->flags & TK_TOP_HIERARCHY) { viewable = 1; break; } |