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

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

Name: Monticello.impl-kph.645
Author: kph
Time: 18 July 2009, 3:49:58 am
UUID: 7aff019e-18f4-4423-9a40-4b4815dd6883
Ancestors: Monticello.impl-kph.644, Monticello.impl-kph.641

merge back in saveAllAdoptingHistoryIn:withComment:



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

Item was added:
+ ----- Method: MCWorkingCopy class>>saveAllAdoptingHistoryIn:withComment: (in category 'as yet unclassified') -----
+ saveAllAdoptingHistoryIn: repo withComment: comment
+ 
+  	(self allManagers select: [ :wc | wc needsSaving ])
+ 		do: [ :wc | 
+ 	
+ 	 wc saveAdoptingHistoryIn: repo withComment: comment
+ 	
+ 	].!

Item was added:
+ ----- Method: MCWorkingCopy>>saveAdoptingHistoryIn:withComment: (in category 'operations') -----
+ saveAdoptingHistoryIn: repo withComment: message
+ 
+ 	"The repo is the one we are maintaining. If there are no changes then adopt the one in the repo as the master"
+ 	
+   	| closest |
+ 	self repositoryGroup addRepository: repo.
+ 	self setMyRepositoryFromLastAdded.
+ 			
+ 	closest := self repository closestAncestorVersionFor: ancestry ifNone:[nil].
+ 	closest ifNotNil: [ ancestry := MCWorkingAncestry new addAncestor: closest info ].
+ 			
+ 	(self changesRelativeToRepository: self repository) isEmpty 
+ 		ifTrue: [ self modified: false ]
+ 		ifFalse: [ 
+ 			self repository storeVersion: 
+ 		
+ 	(self newVersionWithName: self uniqueVersionName message: (message ifNil:[ '' ]))
+ 						
+ 			]
+ 	!

Item was added:
+ ----- Method: MCWorkingCopy>>saveWithComment: (in category 'operations') -----
+ saveWithComment: message
+  
+ 	^ self saveAdoptingHistoryIn: self repository withComment: message !