[Pkg] Monticello Public: Monticello.impl-mtf.616.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Sat Feb 7 17:29:39 UTC 2009
A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-mtf.616.mcz
==================== Summary ====================
Name: Monticello.impl-mtf.616
Author: mtf
Time: 7 February 2009, 12:29:08 pm
UUID: e96f2f1c-c92e-4768-a950-b03d76aa59c7
Ancestors: Monticello.impl-kph.615
fixed two small issues with the cache repository:
- it was showing up second in the list, rather than first.
- loading stuff from it would trigger an error due to attempting to reorder it in the list
=============== Diff against Monticello.impl-kph.615 ===============
Item was changed:
----- Method: MCRepositoryGroup>>addRepository: (in category 'as yet unclassified') -----
addRepository: aRepository
aRepository ifNil: [ ^ self ].
lastAdded := aRepository.
+ aRepository == MCCacheRepository default ifTrue: [ ^ self ].
+ (repositories includes: aRepository)
- ((repositories includes: aRepository) or: [aRepository == MCCacheRepository default])
ifFalse: [repositories add: aRepository.
self class default addRepository: aRepository]
ifTrue: [
repositories remove: aRepository.
repositories add: aRepository.
].
self changed: #repositories!
Item was changed:
----- Method: MCRepositoryGroup>>repositories (in category 'as yet unclassified') -----
repositories
| r |
r := repositories select: [ :ea | ea isValid ].
self useCache ifFalse: [ ^ r ].
r size > 0
+ ifTrue: [ r addFirst: MCCacheRepository default ]
- ifTrue: [ r add: MCCacheRepository default afterIndex: 1 ]
ifFalse: [ r := Array with: MCCacheRepository default ].
^ r
!
More information about the Packages
mailing list