--- a/Context.st Wed Feb 22 18:56:17 2017 +0100
+++ b/Context.st Wed Feb 22 18:56:43 2017 +0100
@@ -1772,16 +1772,18 @@
"return a string to display the receiver - for display in Inspector"
"/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
- "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+ "/ old ST80 means: draw-yourself on a GC.
(aGCOrStream isStream) ifFalse:[
- ^ super displayOn:aGCOrStream
+ ^ super displayOn:aGCOrStream
].
aGCOrStream
- nextPutAll:self class name;
- nextPut:$(.
+ nextPutAll:self class name;
+ nextPut:$(.
self printOn:aGCOrStream.
aGCOrStream nextPut:$).
+
+ "Modified (comment): / 22-02-2017 / 16:47:42 / cg"
!
fullPrintAllOn:aStream