Matthew Fulmer uploaded a new version of Monticello.impl to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.531.mcz
==================== Summary ====================
Name: Monticello.impl-mtf.531 Author: mtf Time: 12 June 2008, 1:06:46 pm UUID: 5be17b0a-705e-4ae2-b4a2-2b2ba122ad88 Ancestors: Monticello.impl-mtf.530
simplified MCClassDefinition>>#edLoad fixed MC to pass the category name of a class to SystemEditor Fixed MCMethodDefinition to tell SystemEditor whether the method is instance-side or class-side
=============== Diff against Monticello.impl-mtf.530 ===============
Item was changed: SystemOrganization addCategory: #'Monticello-Base'! SystemOrganization addCategory: #'Monticello-Chunk Format'! SystemOrganization addCategory: #'Monticello-Loading'! SystemOrganization addCategory: #'Monticello-Merging'! SystemOrganization addCategory: #'Monticello-Modeling'! - SystemOrganization addCategory: #'Monticello-Patching'! - SystemOrganization addCategory: #'Monticello-Repositories'! - SystemOrganization addCategory: #'Monticello-Storing'! - SystemOrganization addCategory: #'Monticello-UI'! - SystemOrganization addCategory: #'Monticello-Versioning'! SystemOrganization addCategory: #'Monticello-Orphanage'! + SystemOrganization addCategory: #'Monticello-Patching'! + SystemOrganization addCategory: #'Monticello-Repositories'! + SystemOrganization addCategory: #'Monticello-Storing'! + SystemOrganization addCategory: #'Monticello-UI'! + SystemOrganization addCategory: #'Monticello-Versioning'!
Item was changed: ----- Method: MCMethodDefinition>>edLoad: (in category 'system editor') ----- edLoad: editor
"priorMethodOrNil := self actualClass compiledMethodAt: selector ifAbsent: [nil]."
+ | classEditor | + classEditor := editor at: className. + classIsMeta ifTrue: [classEditor := classEditor class]. + methodAndNode := classEditor - methodAndNode := (editor at: className) compile: self source classified: self category withStamp: timeStamp notifying: requestor. ^ false "dont ask for edPostLoad, switch our notifications off not sure if needed with SystemEditor-#commit" !
Item was changed: ----- Method: MCClassDefinition>>edLoad: (in category 'system editor') ----- edLoad: editor
+ | theClass | + theClass := (editor at: superclassName) subclass: name + instanceVariableNames: (self stringForVariablesOfType: #isInstanceVariable) + classVariableNames: (self stringForVariablesOfType: #isClassVariable) + poolDictionaries: (self stringForVariablesOfType: #isPoolImport) + category: category. - | new old theClass theSuperclass | - - theClass := editor at: name. - theSuperclass := editor at: superclassName. - - theClass superclass = theSuperclass ifFalse: [ theClass superclass: theSuperclass ]. - - theClass subject typeOfClass = type ifFalse: [ theClass typeOfClass: type ]. + theClass typeOfClass: type. + theClass class instanceVariableNames: (self stringForVariablesOfType: #isClassInstanceVariable). + theClass classComment: comment stamp: commentStamp. - 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