diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-28 12:56:23 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-05-28 12:56:23 (GMT) |
| commit | cb6caf171d10b8568ec7002b261dee6dbe7e77bc (patch) | |
| tree | a7b1435d71321f8f7eef7e39212a6b5b1c7b3a72 /doc/update.n | |
| parent | 4c592a9067ad846bafeecd1bbe492053470bb4f6 (diff) | |
| download | tcl-cb6caf171d10b8568ec7002b261dee6dbe7e77bc.zip tcl-cb6caf171d10b8568ec7002b261dee6dbe7e77bc.tar.gz tcl-cb6caf171d10b8568ec7002b261dee6dbe7e77bc.tar.bz2 | |
Added example
Diffstat (limited to 'doc/update.n')
| -rw-r--r-- | doc/update.n | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/doc/update.n b/doc/update.n index 87c2a7d..060ffb7 100644 --- a/doc/update.n +++ b/doc/update.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: update.n,v 1.4 2000/09/07 14:27:52 poenitz Exp $ +'\" RCS: @(#) $Id: update.n,v 1.5 2004/05/28 12:56:23 dkf Exp $ '\" .so man.macros .TH update n 7.5 Tcl "Tcl Built-In Commands" @@ -43,6 +43,22 @@ you are performing a long-running computation but you still want the application to respond to events such as user interactions; if you occasionally call \fBupdate\fR then user input will be processed during the next call to \fBupdate\fR. +.SH EXAMPLE +Run computations for about a second and then finish: +.CS +set x 1000 +set done 0 +after 1000 set done 1 +while {!$done} { + # A very silly example! + set x [expr {log($x) ** 2.8}] + + # Test to see if our time-limit has been hit. This would + # also give a chance for serving network sockets and, if + # the Tk package is loaded, updating a user interface. + \fBupdate\fR +} +.CE .SH "SEE ALSO" after(n), bgerror(n) |