--- a/LazyValue.st Tue Jun 25 11:06:15 2019 +0200
+++ b/LazyValue.st Tue Jun 25 11:06:22 2019 +0200
@@ -504,6 +504,8 @@
!LazyValue methodsFor:'printing'!
displayOn:aGCOrStream
+ "notice: displayString and displayOn: will not wait for the value (they are for developers and inspectors),
+ whereas printString and printOn: will wait (they are for the program to print data)."
"/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
"/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
@@ -518,9 +520,14 @@
].
aGCOrStream nextPutAll:'LazyValue (unevaluated) block: '.
block displayOn:aGCOrStream.
+
+ "Modified (comment): / 25-06-2019 / 10:49:42 / Claus Gittinger"
!
displayString
+ "notice: displayString and displayOn: will not wait for the value (they are for developers and inspectors),
+ whereas printString and printOn: will wait (they are for the program to print data)."
+
"defined here, because I inherit from nobody"
^ (Object compiledMethodAt:#displayString)
@@ -528,7 +535,7 @@
arguments:nil
selector:#displayString
- "Modified: / 25-06-2019 / 09:54:18 / Claus Gittinger"
+ "Modified (comment): / 25-06-2019 / 10:49:45 / Claus Gittinger"
! !
!LazyValue methodsFor:'private access'!
@@ -603,5 +610,9 @@
version
^ '$Header$'
+!
+
+version_CVS
+ ^ '$Header$'
! !