[Pkg] SystemEditor: SystemEditor-mtf.139.mcz

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

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

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

Name: SystemEditor-mtf.139
Author: mtf
Time: 21 October 2008, 10:18:21 pm
UUID: cf5beb08-d461-40b3-a260-19b3833555dc
Ancestors: SystemEditor-mtf.138

various little fixes

=============== Diff against SystemEditor-mtf.138 ===============

Item was changed:
  ----- Method: MetaclassEditor>>edBuild (in category 'building') -----
  edBuild
  	| result class |
  	class := self subject ifNil: [Metaclass] ifNotNil: [self subject class].
  	result := class basicNew.
  	"Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:"
  	result
  		superclass: self edSuperclass
  		methodDictionary: MethodDictionary new
  		format: self format;		
  		organization: self organization edBuild.
  	result setInstVarNames: self instVarNames.
+ 	self decoratorsDo: [:ea | ea edBuild].
  	^ result!

Item was added:
+ ----- Method: ClassDescriptionEditor>>edSuperclassRequiresRecompile (in category 'building') -----
+ edSuperclassRequiresRecompile
+ 	^ self superclassOrEditor edIsEditor and: [self superclassOrEditor edRequiresRecompile]!

Item was changed:
  ----- Method: PureBehaviorEditor>>edPrepareMigration: (in category 'building') -----
  edPrepareMigration: txn
  	self subject ifNil: [^ self].
+ 	methods ifNotNil: [methods edPrepareMigration: txn for: self].
+ 	organization ifNotNil: [organization edPrepareMigration: txn].
- 	methods edPrepareMigration: txn for: self.
- 	organization edPrepareMigration: txn.
  	self decoratorsDo: [:ea | ea edPrepareMigration: txn]!

Item was changed:
  ----- Method: ClassEditor>>edBuild (in category 'building') -----
  edBuild
  	| meta |
  	meta := self class edBuild.
  	product := subject ifNil: [meta new]
  				ifNotNil: [meta adoptInstance: subject from: subject class].
  	product
  		superclass: self edSuperclass;
  		setFormat: self format;
  		setName: self name;
  		setInstVarNames: self instVarNames;
  		classPoolFrom: self;
  		instVarNamed: #sharedPools put: self sharedPools;
  		organization: self organization edBuild.
  	"Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:"
  	product methodDictionary: MethodDictionary new.
+ 	self name == #NSByteStream ifTrue: [self halt].
+ 	self decoratorsDo: [:ea | self halt. ea edBuild].
- 	self decoratorsDo: [:ea | ea edBuild].
  
  	"Class methods should be compiled before instance methods,
  	since #compilerClass may be among the class methods.
  	Class methods should be compiled after installing class and pool variables"
  	product class methodDictionary: (self class methods buildFor: self class).
  	product methodDictionary: (self methods buildFor: self).
  	^product!

Item was changed:
  ----- Method: ClassExporter>>export: (in category 'private') -----
+ export: aClass
+ 	((aClass isBehavior) and: [aClass superclass notNil])
+ 		ifTrue: [aClass superclass addSubclass: aClass].
- export: aClass 
- 	aClass superclass addSubclass: aClass.
  	(environment includesKey: aClass name)
  		ifTrue: [self replace: aClass]
  		ifFalse: [environment at: aClass name put: aClass]!

Item was removed:
- ----- Method: ClassEditor>>edSuperclassRequiresRecompile (in category 'building') -----
- edSuperclassRequiresRecompile
- 	^ self superclassOrEditor edIsEditor and: [self superclassOrEditor edRequiresRecompile]!