[Pkg] Monticello Public: Monticello.impl-kph.610.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.610.mcz

==================== Summary ====================

Name: Monticello.impl-kph.610
Author: kph
Time: 13 December 2008, 5:41:44 pm
UUID: 00ce50cd-7521-4a46-a479-f77f7417a60a
Ancestors: Monticello.impl-kph.609

MCWorkingCopy knows repo of that the current package was loaded from. - including when loaded in a multiple (i.e. via Installer)

=============== Diff against Monticello.impl-kph.609 ===============

Item was changed:
  ----- Method: MCRepositoryGroup>>addRepository: (in category 'as yet unclassified') -----
  addRepository: aRepository
  
  	aRepository ifNil: [ ^ self ].
  
+ 	lastAdded := 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: MCWorkingCopy>>loaded: (in category 'operations') -----
  loaded: aVersion
  	ancestry := MCWorkingAncestry new addAncestor: aVersion info.
  	requiredPackages := OrderedCollection withAll: (aVersion dependencies collect: [:ea | ea package]).
+ 	self setMyRepositoryFromLastAdded.
  	self modified: false.
  	self changed!

Item was changed:
  ----- Method: MCVersion>>mergeFrom: (in category '') -----
  mergeFrom: repository
  
  	self isCacheable
  			ifTrue: [ 
  					self workingCopy repositoryGroup addRepository: repository.
+ 				  	 .].
- 				  	self workingCopy repository: repository.].
  	 
  	self merge.!

Item was changed:
  ----- Method: MCVersion>>loadFrom: (in category '') -----
  loadFrom: repository
  
  	self isCacheable
+ 			ifTrue: [ self workingCopy repositoryGroup addRepository: repository ].
- 			ifTrue: [ self workingCopy repositoryGroup addRepository: repository.
- 					  self workingCopy repository: repository. ].
  	 
  	self load.!

Item was changed:
  Object subclass: #MCRepositoryGroup
+ 	instanceVariableNames: 'repositories useCache lastAdded'
- 	instanceVariableNames: 'repositories useCache'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Monticello-Base-Versioning'!
  MCRepositoryGroup class
  	instanceVariableNames: 'default'!
  
  !MCRepositoryGroup commentStamp: '<historical>' prior: 0!
  A singleton class, holds the list of repositories. Can look for a requested VersionInfo among its repositories.!

Item was added:
+ ----- Method: MCRepositoryGroup>>lastAdded (in category 'as yet unclassified') -----
+ lastAdded
+ 
+ 	^ lastAdded!

Item was added:
+ ----- Method: MCWorkingCopy>>setMyRepositoryFromLastAdded (in category 'accessing') -----
+ setMyRepositoryFromLastAdded
+ 
+ 	self repository: repositoryGroup lastAdded.!