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 !
packages@lists.squeakfoundation.org