[Pkg] Monticello Public: Monticello.impl-kph.607.mcz

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

A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.607.mcz

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

Name: Monticello.impl-kph.607
Author: kph
Time: 12 December 2008, 7:34:51 pm
UUID: b2b62934-e033-473b-9637-d131bf3cfb5d
Ancestors: Monticello.impl-mtf.606

- refactor to perform slightly less redundant work in looking for obsoletions




=============== Diff against Monticello.impl-mtf.606 ===============

Item was added:
+ ----- Method: MCDefinition>>edPostloadFor: (in category 'system editor') -----
+ edPostloadFor: loader
+ 
+ 	^ self edPostload!

Item was added:
+ ----- Method: MCDefinition>>edLoadFor:into: (in category 'system editor') -----
+ edLoadFor: loader into: anEditor
+ 
+ 	^ self edLoad: anEditor!

Item was changed:
  ----- Method: MCPackageLoader2>>basicLoad (in category 'private') -----
  basicLoad
  
  	| postloads postunloads |
  
  	editor := SystemEditor new.
  	postloads := OrderedCollection new.
  	postunloads := OrderedCollection new.
  
  	additions do: [:defn |
+ 		(defn edLoadOverFor: self into: editor)
- 		(defn edLoadOver: (self obsoletionFor: defn) into: editor)
  			ifTrue: [postloads add: defn]]
  		displayingProgress: 'Assembling Changes...'.
  	removals do: [:defn |
  		(defn edUnload: editor)
  			ifTrue: [postunloads add: defn]]
  		displayingProgress: 'Assembling Removals...'.
  
  	"the business"
  	editor commitWithProgress.
  
+ 	postloads do: [:ea | ea edPostloadFor: self ] displayingProgress: 'Running post-load scripts...'.
- 	postloads do: [:ea | ea edPostloadOver: (self obsoletionFor: ea)] displayingProgress: 'Running post-load scripts...'.
  	postunloads do: [ :ea |  ea edPostunload] displayingProgress: 'Running post-unload scripts...'.!

Item was added:
+ ----- Method: MCOrganizationDefinition>>edPostloadFor: (in category 'as yet unclassified') -----
+ edPostloadFor: loader
+ 	self postloadOver: (loader obsoletionFor: self)!

Item was removed:
- ----- Method: MCDefinition>>edLoadOver:into: (in category 'system editor') -----
- edLoadOver: obsoleteDefinition into: anEditor
- 
- 	^ self edLoad: anEditor!

Item was removed:
- ----- Method: MCDefinition>>edPostloadOver: (in category 'system editor') -----
- edPostloadOver: obsoleteDefinition
- 
- 	^ self edPostload!

Item was removed:
- ----- Method: MCOrganizationDefinition>>edPostloadOver: (in category 'as yet unclassified') -----
- edPostloadOver: aDefinition
- 
- 	self postloadOver: aDefinition!