Index: after.n
===================================================================
RCS file: /cvsroot/tcl/tcl/doc/after.n,v
retrieving revision 1.3
diff -u -r1.3 after.n
--- after.n	7 Sep 2000 14:27:45 -0000	1.3
+++ after.n	20 Apr 2004 19:36:31 -0000
@@ -102,6 +102,37 @@
 \fBtclsh\fR, the event loop can be entered with the \fBvwait\fR
 and \fBupdate\fR commands.
 
+.SH "EXAMPLES"
+
+Command to sleep for N seconds:
+
+.CS
+proc sleep {N} {
+    after [expr {$N * 1000}]
+}
+.CE
+
+Run "wakeup" command after 8 hours:
+
+.CS
+after [expr {1000 * 60 * 60 * 8}] wakeup
+.CE
+
+Command that will call itself to do one step of a long-running
+calculation.  This is a useful technique to keep a Tk GUI responsive
+while performing a slow task, for instance.
+
+.CS
+proc doOneStep {} {
+    if { [::my_calc::one_step] } {
+        after idle [list after 0 doOneStep]
+    }
+    return
+}
+my_calc::start
+doOneStep
+.CE
+
 .SH "SEE ALSO"
 bgerror(n), concat(n), update(n), vwait(n)
 
