A new version of SystemEditor-Squeak was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-Squeak-Igor.Stasenko.1...
==================== Summary ====================
Name: SystemEditor-Squeak-Igor.Stasenko.169 Author: Igor.Stasenko Time: 6 September 2009, 9:44:32 am UUID: bc5bf296-f787-7045-aa62-ba1e13fd16c4 Ancestors: SystemEditor-Squeak-mtf.168
- fixed printing of #definitionST80 in ClassEditor and MetaclassEditor
=============== Diff against SystemEditor-Squeak-mtf.168 ===============
Item was changed: ----- Method: MetaclassEditor>>definitionST80 (in category 'reflecting') ----- definitionST80 ^ String streamContents: [:strm | + strm nextPutAll: self name; - strm print: self; crtab; nextPutAll: 'instanceVariableNames: '; store: self instanceVariablesString]!
Item was changed: ----- Method: ClassEditor>>definitionST80 (in category 'reflecting') ----- definitionST80 "Answer a String that defines the receiver."
| aStream | aStream := WriteStream on: (String new: 300). self superclass == nil ifTrue: [aStream nextPutAll: 'ProtoObject'] ifFalse: [aStream nextPutAll: self superclass name]. aStream nextPutAll: self kindOfSubclass; store: self name. aStream cr; tab; nextPutAll: 'instanceVariableNames: '; store: self instanceVariablesString. aStream cr; tab; nextPutAll: 'classVariableNames: '; store: self classVariablesString. aStream cr; tab; nextPutAll: 'poolDictionaries: '; store: self sharedPoolsString. aStream cr; tab; nextPutAll: 'category: '; + store: self category asString. - store: (SystemOrganization categoryOfElement: self name) asString.
self superclass ifNil: [ aStream nextPutAll: '.'; cr. aStream nextPutAll: self name. aStream space; nextPutAll: 'superclass: nil'. ].
^ aStream contents!