[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