[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