*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 29 Aug 2003 21:23:43 +0200
changeset 1307 18bf29731638
parent 1306 4a4a9956b22e
child 1308 d7bea6d0b3b6
*** empty log message ***
LazyValue.st
OperationQueue.st
Promise.st
--- a/LazyValue.st	Fri Aug 29 21:21:23 2003 +0200
+++ b/LazyValue.st	Fri Aug 29 21:23:43 2003 +0200
@@ -470,6 +470,7 @@
 !LazyValue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/LazyValue.st,v 1.3 2002-07-25 18:10:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/LazyValue.st,v 1.4 2003-08-29 19:23:41 cg Exp $'
 ! !
+
 LazyValue initialize!
--- a/OperationQueue.st	Fri Aug 29 21:21:23 2003 +0200
+++ b/OperationQueue.st	Fri Aug 29 21:23:43 2003 +0200
@@ -1,3 +1,15 @@
+"
+ COPYRIGHT (c) 2000 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+
 "{ Package: 'stx:libbasic2' }"
 
 Object subclass:#OperationQueue
@@ -16,6 +28,20 @@
 
 !OperationQueue class methodsFor:'documentation'!
 
+copyright
+"
+ COPYRIGHT (c) 2000 by eXept Software AG
+              All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice.   This software may not
+ be provided or otherwise made available to, or used by, any
+ other person.  No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
 documentation
 "
     An operationQueue allows operations (i.e. actions) to be evaluated in
@@ -324,5 +350,5 @@
 !OperationQueue class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/OperationQueue.st,v 1.5 2001-02-01 17:54:53 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/OperationQueue.st,v 1.6 2003-08-29 19:23:43 cg Exp $'
 ! !
--- a/Promise.st	Fri Aug 29 21:21:23 2003 +0200
+++ b/Promise.st	Fri Aug 29 21:23:43 2003 +0200
@@ -1,5 +1,5 @@
 "
- COPYRIGHT (c) 1995 by Claus Gittinger
+ COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -10,13 +10,13 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.5 on 29-apr-1995 at 2:28:49 am'!
+"{ Package: 'stx:libbasic2' }"
 
 Object subclass:#Promise
-	 instanceVariableNames:'value valueAvailable exception'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'Kernel-Processes'
+	instanceVariableNames:'value valueAvailable exception'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Kernel-Processes'
 !
 
 !Promise class methodsFor:'documentation'!
@@ -35,10 +35,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Promise.st,v 1.7 1997-01-24 22:19:39 cg Exp $'
-!
-
 documentation
 "
     When created, a promise will start to evaluate its block in the background,
@@ -53,16 +49,16 @@
 
 !Promise class methodsFor:'instance creation'!
 
+value:aBlock
+    "create and return a Promise to evaluate aBlock at the current priority"
+
+    ^ self new value:aBlock priority:Processor activePriority 
+!
+
 value:aBlock priority:aPrio
     "create and return a Promise to evaluate aBlock at some priority"
 
     ^ self new value:aBlock priority:aPrio
-!
-
-value:aBlock
-    "create and return a Promise to evaluate aBlock at the current priority"
-
-    ^ self new value:aBlock priority:Processor activePriority 
 ! !
 
 !Promise methodsFor:'accessing'!
@@ -119,3 +115,8 @@
     ^ valueAvailable wouldBlock not
 ! !
 
+!Promise class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic2/Promise.st,v 1.8 2003-08-29 19:23:33 cg Exp $'
+! !