Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.562.mcz
==================== Summary ====================
Name: Monticello-bf.562 Author: bf Time: 20 August 2013, 2:02:41.71 pm UUID: beda0a3b-0217-4842-a1d0-10dd5f7277d1 Ancestors: Monticello-cmm.561
Add a utility method to check all packages for modifications, setting or resetting the 'modified' flag by comparing the image to the stored version. MCWorkingCopy checkModified: true
=============== Diff against Monticello-cmm.561 ===============
Item was added: + ----- Method: MCWorkingCopy class>>checkModified: (in category 'as yet unclassified') ----- + checkModified: thorough + "Verify that all working copies with a modified flag are really modified, by comparing them to their stored snapshot. If the 'thorough' argument is true, check all packages, even unmodified ones." + "MCWorkingCopy checkModified: true" + | workingCopies | + workingCopies := self allManagers. + thorough ifFalse: [ + workingCopies := workingCopies select: [:wc | wc modified]]. + workingCopies do: [:wc | wc checkModified] + displayingProgress: 'Checking package changes ...' translated. + !
Item was added: + ----- Method: MCWorkingCopy>>checkModified (in category 'operations') ----- + checkModified + self ancestors size = 1 + ifFalse: [ + self modified: true] + ifTrue: [ + | cleanSnapshot currentSnapshot modification | + cleanSnapshot := self findSnapshotWithVersionInfo: self ancestors first. + currentSnapshot := self package snapshot. + modification := currentSnapshot patchRelativeToBase: cleanSnapshot. + self modified: modification isEmpty not]. + !
packages@lists.squeakfoundation.org