--- 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 $'
+! !