--- a/Message.st Wed Feb 22 18:56:43 2017 +0100
+++ b/Message.st Wed Feb 22 18:56:46 2017 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -240,7 +238,7 @@
(although the fallBack is to display its printString ...)"
"/ 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.
].
@@ -250,6 +248,8 @@
nextPut:$(.
selector storeOn:aGCOrStream.
aGCOrStream nextPut:$)
+
+ "Modified (comment): / 22-02-2017 / 16:46:38 / cg"
!
printOn:aStream