Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.436.mcz

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

Name: Monticello-cmm.436
Author: cmm
Time: 10 March 2011, 1:46:11.144 pm
UUID: 7c583266-15bf-4268-81b2-9d6ea16e8fed
Ancestors: Monticello-cmm.435

- Added several methods for tracing MethodReferences and Classes back to their MC counterparts; their #workingCopy, and #repositoryGroup.
- Ability to convert MethodReferences to equivalent MCMethodDefinitions, and classes to MCClassDefinitions.
- Added MCRepository>>allVersionsDo:.

=============== Diff against Monticello-cmm.435 ===============

Item was added:
+ ----- Method: Class>>workingCopy (in category '*monticello') -----
+ workingCopy
+ 	^ self packageInfo workingCopy!

Item was added:
+ ----- Method: MCClassDefinition>>workingCopy (in category 'accessing') -----
+ workingCopy
+ 	^ self actualClass workingCopy!

Item was added:
+ ----- Method: MCDefinition>>repositoryGroup (in category 'repositories') -----
+ repositoryGroup
+ 	"Answer the MCRepositoryGroup from which this this object was loaded."
+ 	^ self workingCopy repositoryGroup!

Item was added:
+ ----- Method: MCDefinition>>workingCopy (in category 'repositories') -----
+ workingCopy
+ 	self subclassResponsibility!

Item was changed:
  ----- Method: MCMethodDefinition>>addMethodAdditionTo: (in category 'installing') -----
+ addMethodAdditionTo: aCollection 
+ 	aCollection
+ 		 add: self asMethodAddition createCompiledMethod ;
+ 		 yourself!
- addMethodAdditionTo: aCollection
- 	| methodAddition |
- 	methodAddition := MethodAddition new
- 		compile: source
- 		classified: category
- 		withStamp: timeStamp
- 		notifying: nil
- 		logSource: true
- 		inClass: self actualClass.
- 	"This might raise an exception and never return"
- 	methodAddition createCompiledMethod.
- 	aCollection add: methodAddition.
- !

Item was changed:
+ ----- Method: MCMethodDefinition>>asMethodAddition (in category 'converting') -----
- ----- Method: MCMethodDefinition>>asMethodAddition (in category 'accessing') -----
  asMethodAddition
  	^MethodAddition new
  		compile: source
  		classified: category
  		withStamp: timeStamp
  		notifying: nil
  		logSource: true
  		inClass: self actualClass.!

Item was added:
+ ----- Method: MCMethodDefinition>>asMethodReference (in category 'converting') -----
+ asMethodReference
+ 	^ MethodReference
+ 		class: self actualClass
+ 		selector: self selector!

Item was added:
+ ----- Method: MCMethodDefinition>>workingCopy (in category 'accessing') -----
+ workingCopy
+ 	"Answer the working copy of which this object is defined."
+ 	^ self asMethodReference workingCopy!

Item was added:
+ ----- Method: MCRepository>>allVersionsDo: (in category 'versions') -----
+ allVersionsDo: aBlock 
+ 	self allPackageNames
+ 		do:
+ 			[ : eachPackageName | (self versionNamesForPackageNamed: eachPackageName)
+ 				do:
+ 					[ : eachVersionName | (self versionNamed: eachVersionName) ifNotNil:
+ 						[ : ver | aBlock value: ver ] ]
+ 				displayingProgress:
+ 					[ : eachVersionName | 'Importing ' , eachVersionName ] ]
+ 		displayingProgress:
+ 			[ : eachPackageName | 'Importing versions of ' , eachPackageName ]!

Item was changed:
  ----- Method: MCRepository>>copyAllFrom: (in category 'versions') -----
  copyAllFrom: aMCRepository 
  	"Copy all MCVersions from aMCRepository to the receiver."
+ 	aMCRepository allVersionsDo:
+ 		[ : eachVersion | self storeVersion: eachVersion ]!
- 	aMCRepository allPackageNames
- 		do:
- 			[ : eachPackageName | (self versionNamesForPackageNamed: eachPackageName)
- 				do:
- 					[ : eachVersionName | (aMCRepository versionNamed: eachVersionName) ifNotNil:
- 						[ : ver | self storeVersion: ver ] ]
- 				displayingProgress:
- 					[ : eachVersionName | 'Importing ' , eachVersionName ] ]
- 		displayingProgress:
- 			[ : eachPackageName | 'Importing versions of ' , eachPackageName ]!

Item was changed:
+ ----- Method: MCRepositoryGroup>>addRepository: (in category 'add / remove') -----
- ----- 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].
  	self changed: #repositories!

Item was changed:
+ ----- Method: MCRepositoryGroup>>includes: (in category 'testing') -----
- ----- Method: MCRepositoryGroup>>includes: (in category 'as yet unclassified') -----
  includes: aRepository
  	^ self repositories includes: aRepository!

Item was changed:
+ ----- Method: MCRepositoryGroup>>includesVersionNamed: (in category 'testing') -----
- ----- Method: MCRepositoryGroup>>includesVersionNamed: (in category 'as yet unclassified') -----
  includesVersionNamed: aString 
  	| versionName |
  	versionName := aString asMCVersionName.
  	self repositoriesDo:
  		[ : ea | (ea includesVersionNamed: versionName) ifTrue: [ ^ true ] ].
  	^ false!

Item was changed:
+ ----- Method: MCRepositoryGroup>>initialize (in category 'initialize-release') -----
- ----- Method: MCRepositoryGroup>>initialize (in category 'as yet unclassified') -----
  initialize
  	repositories := OrderedCollection new!

Item was changed:
+ ----- Method: MCRepositoryGroup>>removeRepository: (in category 'add / remove') -----
- ----- Method: MCRepositoryGroup>>removeRepository: (in category 'as yet unclassified') -----
  removeRepository: aRepository
  	repositories remove: aRepository ifAbsent: [].
  	self changed: #repositories!

Item was changed:
+ ----- Method: MCRepositoryGroup>>repositories (in category 'accessing') -----
- ----- Method: MCRepositoryGroup>>repositories (in category 'as yet unclassified') -----
  repositories
  	^ ((Array with: MCCacheRepository default), repositories) select: [ :ea | ea isValid ]!

Item was changed:
+ ----- Method: MCRepositoryGroup>>repositoriesDo: (in category 'accessing') -----
- ----- Method: MCRepositoryGroup>>repositoriesDo: (in category 'as yet unclassified') -----
  repositoriesDo: aBlock
  	self repositories do: [:ea | [aBlock value: ea] on: Error do: []]!

Item was changed:
+ ----- Method: MCRepositoryGroup>>versionWithInfo: (in category 'accessing') -----
- ----- Method: MCRepositoryGroup>>versionWithInfo: (in category 'as yet unclassified') -----
  versionWithInfo: aVersionInfo
  	^self versionWithInfo: aVersionInfo ifNone: [ nil ]
  !

Item was changed:
+ ----- Method: MCRepositoryGroup>>versionWithInfo:ifNone: (in category 'accessing') -----
- ----- Method: MCRepositoryGroup>>versionWithInfo:ifNone: (in category 'as yet unclassified') -----
  versionWithInfo: aVersionInfo ifNone: aBlock
  	self repositoriesDo: [:ea | (ea versionWithInfo: aVersionInfo) ifNotNil: [:v | ^ v]].
  	^aBlock value!

Item was added:
+ ----- Method: MethodReference>>workingCopy (in category '*monticello') -----
+ workingCopy
+ 	"Answer the MCWorkingCopy in which I am defined."
+ 	^ self packageInfo workingCopy!

Item was added:
+ ----- Method: PackageInfo>>mcPackage (in category '*monticello') -----
+ mcPackage
+ 	^ MCPackage named: self packageName!

Item was added:
+ ----- Method: PackageInfo>>workingCopy (in category '*monticello') -----
+ workingCopy
+ 	^ self mcPackage workingCopy!