RegressionTests__DelayTest.st
changeset 55 25eec262afe8
child 96 d3bad7e5e094
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/RegressionTests__DelayTest.st	Mon Feb 07 13:13:27 2000 +0100
@@ -0,0 +1,11 @@
+|n|
+
+[
+    n := 0.
+    [true] whileTrue:[
+       Delay waitForSeconds:1.
+       Transcript showCR:n.
+       n := n + 1.
+    ]
+] forkAt:9.
+