diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2004-06-21 14:19:38 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2004-06-21 14:19:38 (GMT) |
| commit | 50acdadc6b524cc1809e9378ddb883e9fb6d8d0d (patch) | |
| tree | 720b2670714e31cfc8ad6bcbcce8ad71a3b281b2 /doc/destroy.n | |
| parent | 593690b98a155b1085853e07ec706e2b07a4639d (diff) | |
| download | tk-50acdadc6b524cc1809e9378ddb883e9fb6d8d0d.zip tk-50acdadc6b524cc1809e9378ddb883e9fb6d8d0d.tar.gz tk-50acdadc6b524cc1809e9378ddb883e9fb6d8d0d.tar.bz2 | |
Added example
Diffstat (limited to 'doc/destroy.n')
| -rw-r--r-- | doc/destroy.n | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/doc/destroy.n b/doc/destroy.n index e2cde3d..ce01326 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.3 2004/06/21 14:24:04 dkf Exp $ '\" .so man.macros .TH destroy n "" Tk "Tk Built-In Commands" @@ -18,7 +18,6 @@ destroy \- Destroy one or more windows .BE .SH DESCRIPTION -.VS .PP This command deletes the windows given by the \fIwindow\fR arguments, plus all of their descendants. @@ -28,7 +27,17 @@ The \fIwindow\fRs are destroyed in order, and if an error occurs 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 |