Mercurial Mercurial > hg > stx-libbasic3 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
authorclaus
Fri, 25 Feb 1994 14:00:42 +0100
changeset 7 1ec2a2047025
parent 6 2f5dd35ff019
child 8 3fba2acf0eeb
*** empty log message ***
MethodChange.st file | annotate | diff | comparison | revisions
MethodChg.st file | annotate | diff | comparison | revisions 
--- a/MethodChange.st	Fri Feb 25 13:56:06 1994 +0100
+++ b/MethodChange.st	Fri Feb 25 14:00:42 1994 +0100
@@ -11,10 +11,10 @@
 "
 
 ClassChange subclass:#MethodChange
-	 instanceVariableNames:'selector'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'System-Changes'
+         instanceVariableNames:'selector'
+         classVariableNames:''
+         poolDictionaries:''
+         category:'System-Changes'
 !
 
 !MethodChange class methodsFor:'instance creation'!
@@ -33,7 +33,8 @@
 
 !MethodChange methodsFor:'printing'!
 
-printString
-    ^ className , ' ' , selector 
+printOn:aStream
+    aStream nextPutAll:className; 
+                 space; 
+            nextPutAll:selector 
 ! !
-
--- a/MethodChg.st	Fri Feb 25 13:56:06 1994 +0100
+++ b/MethodChg.st	Fri Feb 25 14:00:42 1994 +0100
@@ -11,10 +11,10 @@
 "
 
 ClassChange subclass:#MethodChange
-	 instanceVariableNames:'selector'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'System-Changes'
+         instanceVariableNames:'selector'
+         classVariableNames:''
+         poolDictionaries:''
+         category:'System-Changes'
 !
 
 !MethodChange class methodsFor:'instance creation'!
@@ -33,7 +33,8 @@
 
 !MethodChange methodsFor:'printing'!
 
-printString
-    ^ className , ' ' , selector 
+printOn:aStream
+    aStream nextPutAll:className; 
+                 space; 
+            nextPutAll:selector 
 ! !
-
hg/stx-libbasic3