[Pkg] Monticello Public: Monticello.impl-kph.601.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.601.mcz

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

Name: Monticello.impl-kph.601
Author: kph
Time: 8 December 2008, 4:45:26 am
UUID: 0dd7686e-fc24-40eb-939e-d6dbef1352bf
Ancestors: Monticello.impl-kph.600

working copy keeps #repository the actual repository that the workcing copy came from

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

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>saveVersion (in category 'actions') -----
  saveVersion
  
  	| repo |
  	
  	self canSave ifFalse: [^self].
  	self checkForNewerVersions ifFalse: [^self].
  	repo := self repository.
  	workingCopy newVersion ifNotNilDo: [:v |
  		'Saving package' displayProgressAt: Sensor cursorPoint
  		from: 0 to:100
  		during:[:bar|
  			bar value: 10.
  			repo storeVersion: v.
  			bar value: 80.
  			
  			MCCacheRepository default cacheAllFileNamesDuring: 
  			[ repo cacheAllFileNamesDuring: [
  				v allAvailableDependenciesDo:
  					[:dep |
  					(repo includesVersionNamed: dep info name)
  						ifFalse: [repo storeVersion: dep]].
  			]].
  			bar value: 100.
  		].
+ 		workingCopy repositoryGroup addRepository: repository.
- 		workingCopy addRepository: repository.
  	]
  !

Item was added:
+ ----- Method: MCWorkingCopy>>repository: (in category 'repositories') -----
+ repository: aRepo
+ 
+ 	self packageInfo propertyAt: #repository put: aRepo description.		
+ 	repository := aRepo!

Item was changed:
  ----- Method: MCRepositoryGroup>>addRepository: (in category 'as yet unclassified') -----
  addRepository: 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 packageInfo propertyAt: #repository put: aRepository description.		
- 	
  	self changed: #repositories!

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

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

Item was changed:
  MCPackageManager subclass: #MCWorkingCopy
+ 	instanceVariableNames: 'ancestry counter repositoryGroup repository requiredPackages'
- 	instanceVariableNames: 'ancestry counter repositoryGroup requiredPackages'
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Monticello-Base-Versioning'!

Item was changed:
  ----- Method: MCRepositoryDualVersionsInspector>>load2 (in category 'as yet unclassified') -----
  load2
   
  	self version2 isCacheable
  			ifTrue: [ self version2 workingCopy repositoryGroup addRepository: repository2].
  		
  	Cursor wait showWhile: [ self version2 load]
  	
  	self refresh
  	!