change record for removeSelector must save storeString of selector;
not printString (in case its some _foo selector)
--- a/Class.st Mon Jul 01 21:32:01 1996 +0200
+++ b/Class.st Mon Jul 01 21:33:50 1996 +0200
@@ -10,8 +10,6 @@
hereby transferred.
"
-'From Smalltalk/X, Version:2.10.9 on 12-jun-1996 at 11:55:31' !
-
ClassDescription subclass:#Class
instanceVariableNames:'classvars comment subclasses classFilename package revision
history'
@@ -23,7 +21,7 @@
category:'Kernel-Classes'
!
-!Class class methodsFor:'documentation'!
+!Class class methodsFor:'documentation'!
copyright
"
@@ -119,7 +117,7 @@
"
! !
-!Class class methodsFor:'initialization'!
+!Class class methodsFor:'initialization'!
initialize
"the classvariable 'UpdatingChanges' controls if changes are put
@@ -152,7 +150,7 @@
"Modified: 21.3.1996 / 16:31:30 / cg"
! !
-!Class class methodsFor:'Signal constants'!
+!Class class methodsFor:'Signal constants'!
fileOutErrorSignal
"return the signal raised when an error occurs while fileing out.
@@ -180,7 +178,7 @@
! !
-!Class class methodsFor:'accessing - flags'!
+!Class class methodsFor:'accessing - flags'!
catchMethodRedefinitions
"return the redefinition catching flag."
@@ -246,7 +244,7 @@
^ UpdatingChanges
! !
-!Class class methodsFor:'enumeration '!
+!Class class methodsFor:'enumeration '!
allClassesInCategory:aCategory do:aBlock
"evaluate aBlock for all classes in aCategory;
@@ -284,7 +282,7 @@
classes do:aBlock
! !
-!Class class methodsFor:'helpers'!
+!Class class methodsFor:'helpers'!
revisionInfoFromString:aString
"return a dictionary filled with revision info.
@@ -350,7 +348,7 @@
"Modified: 13.12.1995 / 17:11:28 / cg"
! !
-!Class class methodsFor:'queries'!
+!Class class methodsFor:'queries'!
isBuiltInClass
"return true if this class is known by the run-time-system.
@@ -2853,8 +2851,10 @@
"append a method-remove-record to aStream"
self printClassNameOn:aStream.
- aStream nextPutAll:(' removeSelector:#' , aSelector).
+ aStream nextPutAll:(' removeSelector:' , aSelector asSymbol storeString).
aStream nextPutChunkSeparator.
+
+ "Modified: 1.7.1996 / 21:27:55 / cg"
!
addChangeRecordForRenameCategory:oldCategory to:newCategory to:aStream
@@ -3934,9 +3934,9 @@
changed:true
! !
-!Class class methodsFor:'documentation'!
+!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.160 1996-06-12 22:10:37 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.161 1996-07-01 19:33:50 cg Exp $'
! !
Class initialize!