[Pkg] SystemEditor: SystemEditor-Squeak-Igor.Stasenko.169.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of SystemEditor-Squeak was added to project SystemEditor:
http://www.squeaksource.com/SystemEditor/SystemEditor-Squeak-Igor.Stasenko.169.mcz

==================== 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!