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

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

Name: Monticello.impl-kph.600
Author: kph
Time: 8 December 2008, 4:33:19 am
UUID: 46b8b525-d0e6-4b77-904e-658a66aa0261
Ancestors: Monticello.impl-kph.599

+ workingCopy moves the repo it was loaded from/to to be the last in the list

+ PackageInfo property: #repository maintains the origin of the package

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

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 addRepository: repository.
- 		]
  	]
  !

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 class default addRepository: 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 add: MCCacheRepository default afterIndex: 1 ]
+ 		ifFalse: [ r := Array with: MCCacheRepository default ].
+ 		
+ 	^ r	
+ 
+ 
- 	^ (self useCache 
- 		ifTrue: [Array with: MCCacheRepository default] 
- 		ifFalse: [Array new]) , repositories select: [ :ea | ea isValid ]
  !

Item was changed:
  SystemOrganization addCategory: #'Monticello-Base'!
  SystemOrganization addCategory: #'Monticello-Base-Chunk Format'!
  SystemOrganization addCategory: #'Monticello-Base-Loading'!
  SystemOrganization addCategory: #'Monticello-Base-Merging'!
  SystemOrganization addCategory: #'Monticello-Base-Modeling'!
- SystemOrganization addCategory: #'Monticello-Orphanage'!
- SystemOrganization addCategory: #'Monticello-Base-Patching'!
- SystemOrganization addCategory: #'Monticello-Base-Repositories'!
- SystemOrganization addCategory: #'Monticello-Base-Storing'!
- SystemOrganization addCategory: #'Monticello-UI-Repository'!
- SystemOrganization addCategory: #'Monticello-Base-Versioning'!
- SystemOrganization addCategory: #'Monticello-Configurations'!
- SystemOrganization addCategory: #'Monticello-UI-Browsers'!
- SystemOrganization addCategory: #'Monticello-UI'!
  SystemOrganization addCategory: #'Monticello-Base-Modeling-Methods'!
  SystemOrganization addCategory: #'Monticello-Base-Modeling-Scripts'!
+ SystemOrganization addCategory: #'Monticello-Base-Patching'!
+ SystemOrganization addCategory: #'Monticello-Base-Repositories'!
+ SystemOrganization addCategory: #'Monticello-Base-Storing'!
+ SystemOrganization addCategory: #'Monticello-Base-Versioning'!
+ SystemOrganization addCategory: #'Monticello-Configurations'!
+ SystemOrganization addCategory: #'Monticello-Orphanage'!
+ SystemOrganization addCategory: #'Monticello-UI'!
+ SystemOrganization addCategory: #'Monticello-UI-Browsers'!
+ SystemOrganization addCategory: #'Monticello-UI-Repository'!
- SystemOrganization addCategory: #'Monticello-Mocks'!

Item was changed:
  ----- Method: MCVersionInfo>>loadVersionFrom: (in category '') -----
  loadVersionFrom: repository
  
+ 	(repository versionWithInfo: self) loadFrom: repository.
- 	(repository versionWithInfo: self) loadFrom: repository
  	
+ 	self packageInfo propertyAt: #repository put: repository description!
- 	!

Item was added:
+ ----- Method: MCWorkingCopy>>repository (in category 'repositories') -----
+ repository
+ 	"get the most revently used, i.e. the one we loaded in from"
+ 	^ self repositoryGroup repositories last!