diff options
| author | dkf <dkf@noemail.net> | 2004-10-28 10:19:28 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2004-10-28 10:19:28 (GMT) |
| commit | d294a4d7b8c50ce9990f560bc01d688d63e1ab89 (patch) | |
| tree | 4510d45a04d9e2aca7a63a3473795ac8dd76d9c8 /doc/destroy.n | |
| parent | a1afcfd7e1dde9fcba91c972179fb6d9d38b6a09 (diff) | |
| download | tk-d294a4d7b8c50ce9990f560bc01d688d63e1ab89.zip tk-d294a4d7b8c50ce9990f560bc01d688d63e1ab89.tar.gz tk-d294a4d7b8c50ce9990f560bc01d688d63e1ab89.tar.bz2 | |
Backport of documentation fixes
FossilOrigin-Name: 2c695c7927060a39a4165a3edc998914ebfa1b80
Diffstat (limited to 'doc/destroy.n')
| -rw-r--r-- | doc/destroy.n | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/doc/destroy.n b/doc/destroy.n index e2cde3d..6240068 100644 --- a/doc/destroy.n +++ b/doc/destroy.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: destroy.n,v 1.2 1998/09/14 18:22:55 stanton Exp $ +'\" RCS: @(#) $Id: destroy.n,v 1.2.26.1 2004/10/28 10:19:29 dkf Exp $ '\" .so man.macros .TH destroy n "" Tk "Tk Built-In Commands" @@ -29,6 +29,17 @@ in destroying a window the command aborts without destroying the remaining windows. No error is returned if \fIwindow\fR does not exist. .VE +.SH EXAMPLE +Destroy all checkbuttons that are direct children of the given widget: +.CS +proc killCheckbuttonChildren {parent} { + foreach w [winfo children $parent] { + if {[winfo class $w] eq "Checkbutton"} { + \fBdestroy\fR $w + } + } +} +.CE .SH KEYWORDS application, destroy, window |