*** empty log message ***
authorclaus
Fri, 25 Feb 1994 13:56:06 +0100
changeset 6 2f5dd35ff019
parent 5 75e76fc5457e
child 7 1ec2a2047025
*** empty log message ***
ClassCommentChange.st
ClassDefinitionChange.st
ClsComChg.st
ClsDefChg.st
--- a/ClassCommentChange.st	Wed Oct 13 03:12:49 1993 +0100
+++ b/ClassCommentChange.st	Fri Feb 25 13:56:06 1994 +0100
@@ -11,10 +11,10 @@
 "
 
 ClassChange subclass:#ClassCommentChange
-	 instanceVariableNames:'comment'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'System-Changes'
+         instanceVariableNames:'comment'
+         classVariableNames:''
+         poolDictionaries:''
+         category:'System-Changes'
 !
 
 !ClassCommentChange methodsFor:'accessing'!
@@ -25,7 +25,8 @@
 
 !ClassCommentChange methodsFor:'printing'!
 
-printString
-    ^ 'ClassCommentChange(' , className , ')'
+printOn:aStream
+    aStream nextPutAll:'ClassCommentChange(';
+            nextPutAll:className;
+            nextPutAll:')'
 ! !
-
--- a/ClassDefinitionChange.st	Wed Oct 13 03:12:49 1993 +0100
+++ b/ClassDefinitionChange.st	Fri Feb 25 13:56:06 1994 +0100
@@ -11,15 +11,16 @@
 "
 
 ClassChange subclass:#ClassDefinitionChange
-	 instanceVariableNames:'definition'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'System-Changes'
+         instanceVariableNames:'definition'
+         classVariableNames:''
+         poolDictionaries:''
+         category:'System-Changes'
 !
 
 !ClassDefinitionChange methodsFor:'printing'!
 
-printString
-    ^ 'ClassDefinitionChange(' , className , ')'
+printOn:aStream
+    aStream nextPutAll:'ClassDefinitionChange(';
+            nextPutAll:className;
+            nextPutAll:')'
 ! !
-
--- a/ClsComChg.st	Wed Oct 13 03:12:49 1993 +0100
+++ b/ClsComChg.st	Fri Feb 25 13:56:06 1994 +0100
@@ -11,10 +11,10 @@
 "
 
 ClassChange subclass:#ClassCommentChange
-	 instanceVariableNames:'comment'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'System-Changes'
+         instanceVariableNames:'comment'
+         classVariableNames:''
+         poolDictionaries:''
+         category:'System-Changes'
 !
 
 !ClassCommentChange methodsFor:'accessing'!
@@ -25,7 +25,8 @@
 
 !ClassCommentChange methodsFor:'printing'!
 
-printString
-    ^ 'ClassCommentChange(' , className , ')'
+printOn:aStream
+    aStream nextPutAll:'ClassCommentChange(';
+            nextPutAll:className;
+            nextPutAll:')'
 ! !
-
--- a/ClsDefChg.st	Wed Oct 13 03:12:49 1993 +0100
+++ b/ClsDefChg.st	Fri Feb 25 13:56:06 1994 +0100
@@ -11,15 +11,16 @@
 "
 
 ClassChange subclass:#ClassDefinitionChange
-	 instanceVariableNames:'definition'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'System-Changes'
+         instanceVariableNames:'definition'
+         classVariableNames:''
+         poolDictionaries:''
+         category:'System-Changes'
 !
 
 !ClassDefinitionChange methodsFor:'printing'!
 
-printString
-    ^ 'ClassDefinitionChange(' , className , ')'
+printOn:aStream
+    aStream nextPutAll:'ClassDefinitionChange(';
+            nextPutAll:className;
+            nextPutAll:')'
 ! !
-