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