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!