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

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Sun Sep 6 18:55:28 UTC 2009

A new version of SystemEditor-Squeak was added to project SystemEditor:

==================== 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') -----
  	^ String streamContents: 
  		[:strm |
+ 		strm nextPutAll: self name;
- 		strm print: self;
  			nextPutAll: 'instanceVariableNames: ';
  			store: self instanceVariablesString]!

Item was changed:
  ----- Method: ClassEditor>>definitionST80 (in category 'reflecting') -----
  	"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!

More information about the Packages mailing list