# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1106748159 -3600
# Node ID fd7eba3420e1dd879cb50753c2b323335d9f0b66
# Parent  74746c040f49aaee0e415a469f0e1781ea927bc9
Dolphin compat: #deferredValue is the same as #futureValue

diff -r 74746c040f49 -r fd7eba3420e1 Block.st
--- a/Block.st	Wed Jan 26 14:56:16 2005 +0100
+++ b/Block.st	Wed Jan 26 15:02:39 2005 +0100
@@ -470,9 +470,9 @@
 !Block methodsFor:'Compatibility-Dolphin'!
 
 deferredValue
-    "doplphin's alias for promise"
+    "doplphin's alias for futureValue"
 
-    ^ self promise
+    ^ self futureValue
 ! !
 
 !Block methodsFor:'Compatibility-Squeak'!
@@ -1681,78 +1681,92 @@
 !Block methodsFor:'parallel evaluation'!
 
 futureValue
-        "Fork a synchronised evaluation of myself. 
-         Starts the evaluation in parallel now, but synchronizes
-         any access to wait until the result is computed."
+    "Fork a synchronised evaluation of myself. 
+     Starts the evaluation in parallel now, but synchronizes
+     any access to wait until the result is computed."
 
-        ^Future new block: self
+    ^ Future new block:self
 !
 
-futureValue: aValue
-        "Fork a synchronised evaluation of myself. 
-         Starts the evaluation in parallel now, but synchronizes
-         any access to wait until the result is computed."
-
-        ^Future new block: self value: aValue
+futureValue:aValue 
+    "Fork a synchronised evaluation of myself. 
+     Starts the evaluation in parallel now, but synchronizes
+     any access to wait until the result is computed."
+    
+    ^ Future new block:self value:aValue
 !
 
-futureValue: aValue value: anotherValue
-        "Fork a synchronised evaluation of myself. 
-         Starts the evaluation in parallel now, but synchronizes
-         any access to wait until the result is computed."
-
-        ^Future new block: self value: aValue value: anotherValue
+futureValue:aValue value:anotherValue 
+    "Fork a synchronised evaluation of myself. 
+     Starts the evaluation in parallel now, but synchronizes
+     any access to wait until the result is computed."
+    
+    ^ Future new 
+        block:self
+        value:aValue
+        value:anotherValue
 !
 
-futureValue: aValue value: anotherValue value: bValue
-        "Fork a synchronised evaluation of myself. 
-         Starts the evaluation in parallel now, but synchronizes
-         any access to wait until the result is computed."
-
-        ^Future new block: self value: aValue value: anotherValue value: bValue
+futureValue:aValue value:anotherValue value:bValue 
+    "Fork a synchronised evaluation of myself. 
+     Starts the evaluation in parallel now, but synchronizes
+     any access to wait until the result is computed."
+    
+    ^ Future new 
+        block:self
+        value:aValue
+        value:anotherValue
+        value:bValue
 !
 
-futureValueWithArguments: anArray
-        "Fork a synchronised evaluation of myself. 
-         Starts the evaluation in parallel now, but synchronizes
-         any access to wait until the result is computed."
-
-        ^Future new block: self valueWithArguments: anArray
+futureValueWithArguments:anArray 
+    "Fork a synchronised evaluation of myself. 
+     Starts the evaluation in parallel now, but synchronizes
+     any access to wait until the result is computed."
+    
+    ^ Future new block:self valueWithArguments:anArray
 !
 
 lazyValue
-	"Fork a synchronised evaluation of myself. Only starts
-	 the evaluation when the result is requested."
-
-	^Lazy new block: self
+    "Fork a synchronised evaluation of myself. Only starts
+     the evaluation when the result is requested."
+    
+    ^ Lazy new block:self
 !
 
-lazyValue: aValue
-	"Fork a synchronised evaluation of myself. Only starts
-	 the evaluation when the result is requested."
-
-	^Lazy new block: self value: aValue
+lazyValue:aValue 
+    "Fork a synchronised evaluation of myself. Only starts
+     the evaluation when the result is requested."
+    
+    ^ Lazy new block:self value:aValue
 !
 
-lazyValue: aValue value: anotherValue
-	"Fork a synchronised evaluation of myself. Only starts
-	 the evaluation when the result is requested."
-
-	^Lazy new block: self value: aValue value: anotherValue
+lazyValue:aValue value:anotherValue 
+    "Fork a synchronised evaluation of myself. Only starts
+     the evaluation when the result is requested."
+    
+    ^ Lazy new 
+        block:self
+        value:aValue
+        value:anotherValue
 !
 
-lazyValue: aValue value: anotherValue value: bValue
-	"Fork a synchronised evaluation of myself. Only starts
-	 the evaluation when the result is requested."
-
-	^Lazy new block: self value: aValue value: anotherValue value: bValue
+lazyValue:aValue value:anotherValue value:bValue 
+    "Fork a synchronised evaluation of myself. Only starts
+     the evaluation when the result is requested."
+    
+    ^ Lazy new 
+        block:self
+        value:aValue
+        value:anotherValue
+        value:bValue
 !
 
-lazyValueWithArguments: anArray
-	"Fork a synchronised evaluation of myself. Only starts
-	 the evaluation when the result is requested."
-
-	^Lazy new block: self valueWithArguments: anArray
+lazyValueWithArguments:anArray 
+    "Fork a synchronised evaluation of myself. Only starts
+     the evaluation when the result is requested."
+    
+    ^ Lazy new block:self valueWithArguments:anArray
 ! !
 
 !Block methodsFor:'printing & storing'!
@@ -2164,7 +2178,7 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.142 2005-01-20 12:27:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.143 2005-01-26 14:02:39 stefan Exp $'
 ! !
 
 Block initialize!