[Pkg] Monticello Public: Monticello.impl-mtf.606.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-mtf.606.mcz

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

Name: Monticello.impl-mtf.606
Author: mtf
Time: 11 December 2008, 9:40:55 pm
UUID: 01f5181a-f2a0-4896-b7c1-3596f6deaf28
Ancestors: Monticello.impl-kph.605

- expanded the public interface to MCPackageLoader2 to let definitions know the obsoletion
- got MCOrganizationDefinition loading using MCPackageLoader2
- Made the comments... button on the save dialog not save the package. This was an interference between a pharo change and a change by matthew

=============== Diff against Monticello.impl-kph.605 ===============

Item was changed:
  ----- Method: MCSaveVersionDialog>>comment (in category 'as yet unclassified') -----
  comment
  	| list index |
  	list := self lastComments collect: [:s | s copyFrom: 1 to: (s size min: 20)].
  	list ifEmpty: [UIManager default inform: 'No previous comments was entered'. ^ self].
  	index := UIManager default chooseFrom: list.
  	
  	"no comment was selected"
  	index isZero ifTrue: [ ^ self ].
  	
+ 	message := self lastComments at: index.
+ 	self changed: #logMessage!
- 	self logMessage: (self lastComments at: index)!

Item was changed:
  ----- Method: MCSaveVersionDialog>>logMessage (in category 'as yet unclassified') -----
  logMessage
+ 	^ message ifNil: ['']!
- 	^ message ifNil: ['empty log message']!

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 edLoadOver: (self obsoletionFor: defn) into: editor)
+ 			ifTrue: [postloads add: defn]]
- 	additions do: [:defn | (defn edLoad: editor) ifTrue: [postloads add: defn]]
  		displayingProgress: 'Assembling Changes...'.
+ 	removals do: [:defn |
+ 		(defn edUnload: editor)
+ 			ifTrue: [postunloads add: defn]]
- 	removals do: [:defn | (defn edUnload: editor) ifTrue: [postunloads add: defn]]
  		displayingProgress: 'Assembling Removals...'.
  
  	"the business"
  	editor commitWithProgress.
  
+ 	postloads do: [:ea | ea edPostloadOver: (self obsoletionFor: ea)] displayingProgress: 'Running post-load scripts...'.
- 	postloads do: [:ea | ea edPostload] displayingProgress: 'Running post-load scripts...'.
  	postunloads do: [ :ea |  ea edPostunload] displayingProgress: 'Running post-unload scripts...'.!

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

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

Item was added:
+ ----- Method: MCDefinition>>edPostunload (in category 'system editor') -----
+ edPostunload!

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

Item was added:
+ ----- Method: MCOrganizationDefinition>>edLoad: (in category 'as yet unclassified') -----
+ edLoad: editor
+ 
+ 	"editor organization categories: categories."
+ 	^ true!

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