MessageSend.st
changeset 21531 3741418705e1
parent 17696 bdccf4ca66ba
child 22721 0649d8f051b0
--- 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$'
 ! !