diff -r 655a47664154 -r 3741418705e1 MessageSend.st --- a/MessageSend.st Wed Feb 22 18:56:46 2017 +0100 +++ b/MessageSend.st Wed Feb 22 18:56:49 2017 +0100 @@ -1,5 +1,3 @@ -"{ Encoding: utf8 }" - " COPYRIGHT (c) 1994 by Claus Gittinger All Rights Reserved @@ -327,7 +325,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. ]. @@ -339,6 +337,8 @@ aGCOrStream nextPutAll:'>>'. selector storeOn:aGCOrStream. aGCOrStream nextPut:$) + + "Modified (comment): / 22-02-2017 / 16:48:49 / cg" ! printOn:aStream @@ -355,10 +355,10 @@ !MessageSend class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/MessageSend.st,v 1.26 2015-03-27 11:21:29 cg Exp $' + ^ '$Header$' ! version_CVS - ^ '$Header: /cvs/stx/stx/libbasic/MessageSend.st,v 1.26 2015-03-27 11:21:29 cg Exp $' + ^ '$Header$' ! !