--- a/Delay.st	Wed May 07 15:36:51 2014 +0200
+++ b/Delay.st	Wed May 07 16:30:39 2014 +0200
@@ -148,6 +148,16 @@
 
 !Delay class methodsFor:'instance creation'!
 
+for:aTimeDuration
+    "return a new Delay object for delaying aNumber seconds"
+
+    ^ self new delay:aTimeDuration getMilliseconds.
+
+    "
+      Delay for:10 seconds
+    "
+!
+
 forMilliseconds:aNumber
     "return a new Delay object for delaying aNumber milliseconds"
 
@@ -359,10 +369,10 @@
 !Delay class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.50 2014-04-16 22:10:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.51 2014-05-07 14:30:39 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.50 2014-04-16 22:10:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.51 2014-05-07 14:30:39 stefan Exp $'
 ! !