MethodChange.st
changeset 800 3c41a8705c48
parent 798 999fff0aa0d0
child 849 d31825895bb2
--- a/MethodChange.st	Mon Jul 12 14:07:29 1999 +0200
+++ b/MethodChange.st	Thu Jul 15 21:43:46 1999 +0200
@@ -123,9 +123,12 @@
 !MethodChange methodsFor:'printing'!
 
 printOn:aStream
+    "append a user printed representation of the receiver to aStream.
+     The format is suitable for a human - not meant to be read back."
+
     aStream nextPutAll:className; 
-		 space; 
-	    nextPutAll:selector 
+                 space; 
+            nextPutAll:selector 
 !
 
 printWithoutClassOn:aStream
@@ -146,5 +149,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.19 1999-07-12 12:06:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.20 1999-07-15 19:43:46 cg Exp $'
 ! !