[squeak-dev] The Trunk: Monticello-cmm.481.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Aug 16 02:52:23 UTC 2011
Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.481.mcz
==================== Summary ====================
Name: Monticello-cmm.481
Author: cmm
Time: 15 August 2011, 9:00:37.25 pm
UUID: 5072119a-48d8-4ff5-a804-7ac80b3ea718
Ancestors: Monticello-cmm.480
Better copyAllFrom:.
=============== Diff against Monticello-cmm.480 ===============
Item was changed:
----- Method: MCRepository>>copyAllFrom: (in category 'versions') -----
copyAllFrom: aMCRepository
"Copy all MCVersions from aMCRepository to the receiver."
self cacheAllFileNamesDuring:
+ [ aMCRepository cacheAllFileNamesDuring:
+ [ | pkgCount |
+ pkgCount := 0.
+ 'Copy all package versions from ' , aMCRepository description
+ displayProgressFrom: 0
+ to: aMCRepository allPackageNames size
+ during:
+ [ : pkgBar | aMCRepository allPackageNames asArray sort do:
+ [ : eachPackageName | | versions verCount |
+ verCount := 0.
+ versions := (aMCRepository versionNamesForPackageNamed: eachPackageName) difference: (self versionNamesForPackageNamed: eachPackageName).
+ 'Progress for ' , eachPackageName
+ displayProgressFrom: 0
+ to: versions size
+ during:
+ [ : verBar | versions do:
+ [ : eachVersionName | (aMCRepository versionNamed: eachVersionName) ifNotNil:
+ [ : ver | self storeVersion: ver ].
+ verBar value: (verCount := verCount + 1) ].
+ pkgBar value: (pkgCount := pkgCount + 1) ] ] ] ] ]!
- [ aMCRepository allVersionsDo:
- [ : eachVersion | (self includesVersionNamed: eachVersion versionName) ifFalse: [ self storeVersion: eachVersion ] ] ]!
More information about the Squeak-dev
mailing list
|