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

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Fri Mar 6 20:20:39 UTC 2009


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

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

Name: Monticello.impl-kph.640
Author: kph
Time: 6 March 2009, 8:19:31 pm
UUID: 19ffee67-0a8c-11de-9863-000a95edb42a
Ancestors: Monticello.impl-kph.639

added 

+ saveAllRehomingIn:withComment:
+ saveRehomingIn:withComment:

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

Item was added:
+ ----- Method: MCWorkingCopy class>>saveAllAdoptingHistoryIn:withComment: (in category 'as yet unclassified') -----
+ saveAllAdoptingHistoryIn: dirRepoPath withComment: comment
+ 
+  	(self allManagers select: [ :wc | wc needsSaving ])
+ 		do: [ :wc | 
+ 	
+ 	 wc saveAdoptingHistoryIn:  (FileDirectory on: dirRepoPath) 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 !



More information about the Packages mailing list