--- 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:')'
! !
-