A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.523.mcz
==================== Summary ====================
Name: Monticello.impl-mtf.523 Author: mtf Time: 9 June 2008, 8:26:58 pm UUID: 5dabce14-e7a4-4489-aef5-4de54a8890dd Ancestors: Monticello.impl-kph.521
removed direct references to ClassEditor
=============== Diff against Monticello.impl-kph.521 ===============
Item was changed: ----- Method: MCClassDefinition>>edUnload: (in category 'system editor') ----- edUnload: editor
+ (editor at: name) removeFromSystem. - (ClassEditor named: name for: editor) removeFromSystem. ^ false "we dont need an edPostload"!
Item was changed: ----- Method: MCClassDefinition>>edLoad: (in category 'system editor') ----- edLoad: editor
| new old theClass theSuperclass |
+ theClass := editor at: name. + theSuperclass := editor at: superclassName. - theClass := ClassEditor named: name for: editor. - theSuperclass := ClassEditor named: superclassName for: editor. theClass superclass = theSuperclass ifFalse: [ theClass superclass: theSuperclass ]. theClass subject typeOfClass = type ifFalse: [ theClass typeOfClass: type ]. old := theClass instVarNames. new := self selectVariables: #isInstanceVariable. (old difference: new) do: [ :iv | theClass removeInstVarName: iv ]. (new difference: old) do: [ :iv | theClass addInstVarName: iv ]. old := theClass classVarNames. new := self selectVariables: #isClassVariable. (old difference: new) do: [ :iv | theClass removeClassVarName: iv ]. (new difference: old) do: [ :iv | theClass addClassVarName: iv ]. old := theClass sharedPools. new := self selectVariables: #isPoolImport. (old difference: new) do: [ :iv | theClass removeSharedPool: iv ]. (new difference: old) do: [ :iv | theClass addSharedPool: iv ]. old := theClass class instVarNames. new := self selectVariables: #isClassInstanceVariable. (old difference: new) do: [ :iv | theClass class removeInstVarName: iv ]. (new difference: old) do: [ :iv | theClass class addInstVarName: iv ].
self hasComment ifTrue: [ theClass classComment: comment stamp: commentStamp ]. ^ false "we dont need an edPostload"!
packages@lists.squeakfoundation.org