#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Tue, 25 Jun 2019 10:19:07 +0200
changeset 5032 fe353b8a8223
parent 5031 0cfe45b14c1a
child 5033 256f0b1cdd22
#REFACTORING by cg class: LazyValue changed: #displayString code reuse
LazyValue.st
--- a/LazyValue.st	Tue Jun 25 09:03:59 2019 +0200
+++ b/LazyValue.st	Tue Jun 25 10:19:07 2019 +0200
@@ -521,14 +521,14 @@
 !
 
 displayString
-    |s|
+    "defined here, because I inherit from nobody"
 
-    "/ attention: TextStream is not present in ultra-mini standalone apps
-    s := TextStream isNil
-            ifTrue:['' writeStream]
-            ifFalse:[TextStream on:(String new:32)].
-    self displayOn:s.
-    ^ s contents
+    ^ (Object compiledMethodAt:#displayString)
+        valueWithReceiver:self
+        arguments:nil
+        selector:#displayString
+
+    "Modified: / 25-06-2019 / 09:54:18 / Claus Gittinger"
 ! !
 
 !LazyValue methodsFor:'private access'!