[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