--- 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$'
! !