[squeak-dev] The Trunk: MonticelloConfigurations-cmm.91.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Mar 23 21:35:20 UTC 2011
Chris Muller uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/MonticelloConfigurations-cmm.91.mcz
==================== Summary ====================
Name: MonticelloConfigurations-cmm.91
Author: cmm
Time: 23 March 2011, 4:35:15.54 pm
UUID: 194e25a2-6bd7-4759-a441-06f756f1e064
Ancestors: MonticelloConfigurations-cmm.90
- Didn't need to use #detect:ifFound:ifNone:.
=============== Diff against MonticelloConfigurations-cmm.90 ===============
Item was changed:
----- Method: MCConfiguration>>depsSatisfying:versionDo:displayingProgress: (in category 'private') -----
depsSatisfying: selectBlock versionDo: verBlock displayingProgress: progressString
| count action |
count := 0.
self repositories do: [ : eachRepository | MCRepositoryGroup default addRepository: eachRepository ].
action := [ : dep | | ver repo |
ver := dep versionInfo name.
repo := self repositories
detect:
[ : eachRepository | eachRepository includesVersionNamed: ver ]
- ifFound:
- [ : foundRep | foundRep ]
ifNone:
[ self logError: 'Version ' , ver , ' not found in any repository'.
self logError: 'Aborting'.
^ count ].
(selectBlock value: dep) ifTrue:
[ | new |
new := self
versionNamed: ver
for: dep
from: repo.
new
ifNil:
[ self logError: 'Could not download version ' , ver , ' from ' , repo description.
self logError: 'Aborting'.
^ count ]
ifNotNil:
[ self
logUpdate: dep package
with: new.
self class extraProgressInfo ifTrue:
[ ProgressNotification
signal: ''
extra: 'Installing ' , ver ].
verBlock value: new.
count := count + 1 ] ].
dep package workingCopy repositoryGroup addRepository: repo ].
self class extraProgressInfo
ifTrue:
[ self dependencies
do: action
displayingProgress: progressString ]
ifFalse: [ self dependencies do: action ].
^ count!
More information about the Squeak-dev
mailing list
|