diff options
| author | ericm <ericm> | 2000-10-05 18:31:24 (GMT) |
|---|---|---|
| committer | ericm <ericm> | 2000-10-05 18:31:24 (GMT) |
| commit | 013aae9d787ee19bdc02bc57dc0633bed8c28ac8 (patch) | |
| tree | 79fe531fc886831c0e17508f151e45a8bc1e1fed /generic/tkCmds.c | |
| parent | 30fc0833efbf90ccc48a361ba2736d377c748708 (diff) | |
| download | tk-013aae9d787ee19bdc02bc57dc0633bed8c28ac8.zip tk-013aae9d787ee19bdc02bc57dc0633bed8c28ac8.tar.gz tk-013aae9d787ee19bdc02bc57dc0633bed8c28ac8.tar.bz2 | |
* generic/tkCmds.c (Tk_WinfoObjCmd): Added check for
TK_ANONYMOUS_WINDOW flag in the [winfo children] subcommand; if
set, the window will not be printed in the list of children.
* doc/CrtWindow.3: Added entry for Tk_CreateAnonymousWindow.
* generic/tkWindow.c
(Tk_CreateAnonymousWindow): New API for creating anonymous
windows. These windows are manipulable from C, but not from Tcl,
because they have no pathname associated with them. They are used
initially by widgets that do rubber-band resizing (panedwindow,
multi-column listbox, etc.), and may be useful for other widgets
as well (dropbox, combobox).
(Tk_DestroyWindow): Added check for TK_ANONYMOUS_WINDOW flag when
determining whether to generate a DestroyNotify event.
* generic/tkStubInit.c:
* generic/tkDecls.h: Regen'd from tk.decls.
* generic/tk.decls: Added Tk_CreateAnonymousWindow declaration.
* generic/tk.h: Added TK_ANONYMOUS_WINDOW flag for Tk_Window's.
Diffstat (limited to 'generic/tkCmds.c')
| -rw-r--r-- | generic/tkCmds.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tkCmds.c b/generic/tkCmds.c index 4d3f5ae..6be5557 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.18 2000/08/04 00:46:32 ericm Exp $ + * RCS: @(#) $Id: tkCmds.c,v 1.19 2000/10/05 18:31:25 ericm Exp $ */ #include "tkPort.h" @@ -1081,8 +1081,10 @@ Tk_WinfoObjCmd(clientData, interp, objc, objv) winPtr = winPtr->childList; for ( ; winPtr != NULL; winPtr = winPtr->nextPtr) { - strPtr = Tcl_NewStringObj(winPtr->pathName, -1); - Tcl_ListObjAppendElement(NULL, resultPtr, strPtr); + if (!(winPtr->flags & TK_ANONYMOUS_WINDOW)) { + strPtr = Tcl_NewStringObj(winPtr->pathName, -1); + Tcl_ListObjAppendElement(NULL, resultPtr, strPtr); + } } break; } |