[Pkg] DeltaStreams: SystemEditor-mtf.93.mcz

[squeaksource-noreply at iam.unibe.ch]

A new version of SystemEditor was added to project DeltaStreams:
http://www.squeaksource.com/DeltaStreams/SystemEditor-mtf.93.mcz

==================== Summary ====================

Name: SystemEditor-mtf.93
Author: mtf
Time: 11 June 2008, 9:09:17 pm
UUID: e3ba1323-5a52-4932-bbf4-5e0038371676
Ancestors: SystemEditor-mtf.92

add traits instance variables to ClassEditor and MetaclassEditor

fixed bugs that arise when editing ProtoObject, where superclass is nil

fixed an issue where enumerating subclasses could undo changes made in the system editor

=============== Diff against SystemEditor-mtf.92 ===============

Item was changed:
  ----- Method: ClassEditor>>edClassFormat (in category 'building') -----
  edClassFormat
  	| superFormat |
+ 	superFormat := self edSuperEditor ifNil: [ClassFormat named]
+ 		ifNotNil: [ClassFormat fromBits: self edSuperEditor format].
- 	superFormat := ClassFormat fromBits: self edSuperEditor format.
  	^ self typeOfClass = #normal
  		ifTrue: [superFormat namedSubclass: self instVarNames size]
  		ifFalse: [superFormat indexedSubclass: self instVarNames size]!

Item was changed:
  Object subclass: #ClassEditor
+ 	instanceVariableNames: 'subject product system superEditor name type instVarNames classVarNames sharedPools methods category organization traitComposition'
- 	instanceVariableNames: 'subject product system superEditor name type instVarNames classVarNames sharedPools methods category organization'
  	classVariableNames: 'ReservedNames'
  	poolDictionaries: ''
  	category: 'SystemEditor-Editors'!

Item was changed:
- SystemOrganization addCategory: #'SystemEditor-Tests'!
  SystemOrganization addCategory: #'SystemEditor-Editors'!
- SystemOrganization addCategory: #'SystemEditor-Info'!
  SystemOrganization addCategory: #'SystemEditor-Exceptions'!
+ SystemOrganization addCategory: #'SystemEditor-Info'!
+ SystemOrganization addCategory: #'SystemEditor-Tests'!

Item was changed:
  Behavior subclass: #MetaclassEditor
+ 	instanceVariableNames: 'editor superEditor instVarNames methods organization traitComposition'
- 	instanceVariableNames: 'editor superEditor instVarNames methods organization'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'SystemEditor-Editors'!

Item was changed:
  ----- Method: ClassEditor>>instSize (in category 'reflecting') -----
  instSize
+ 	^ self instVarNames size + (self edSuperEditor
+ 		ifNil: [0] ifNotNilDo: [:ed | ed instSize])!
- 	^ self edSuperEditor instSize + self instVarNames size.!

Item was changed:
  ----- Method: SystemEditor>>edEditorFor: (in category 'building') -----
  edEditorFor: aClass
  	| name editor |
  	aClass edIsEditor ifTrue: [^ aClass].
  	name := aClass theNonMetaClass name.
+ 	editor := self at: name.
- 	editor := ClassEditor named: name for: self.
  	^ aClass isMeta ifFalse: [editor] ifTrue: [editor class].!

Item was removed:
- ----- Method: ClassEditor>>isBehavior (in category 'testing') -----
- isBehavior
- 	^ true!