[Pkg] The Trunk: Monticello-bf.562.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Aug 20 12:03:42 UTC 2013
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].
+ !
More information about the Packages
mailing list