A new version of Monticello was added to project The Inbox:
http://source.squeak.org/inbox/Monticello-cmm.567.mcz

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

Name: Monticello-cmm.567
Author: cmm
Time: 6 September 2013, 10:42:25.25 pm
UUID: 1eb29d2d-99fb-4112-a292-ed5d016a9eaa
Ancestors: Monticello-cmm.566

- Fixed extensions category name to support 'mc versions' and 'mc origin' functions.

=============== Diff against Monticello-cmm.566 ===============

Item was added:
+ ----- Method: BrowserRequestor>>browseClassVersionsInMc (in category '*monticello-history') -----
+ browseClassVersionsInMc
+ 	"Open a browser on all versions of this class available in the MC repository for this package."
+ 	self getClass
+ 		ifNil: [ UIManager inform: 'No class selected' ]
+ 		ifNotNilDo:
+ 			[ : theClass | theClass mcModel
+ 				ifNil: [ UIManager inform: 'No Magma-based repository for ' , theClass packageInfo packageName ]
+ 				ifNotNilDo:
+ 					[ : mcModel | (MCPatch operations: theClass mcPatchOperations) browse ] ]!

Item was added:
+ ----- Method: BrowserRequestor>>browseMcClassOrigin (in category '*monticello-history') -----
+ browseMcClassOrigin
+ 	"Open a Monticello version browser on the earliest version available in the repository known to contain this version."
+ 	self getClass
+ 		ifNil: [ UIManager inform: 'No method selected' ]
+ 		ifNotNilDo:
+ 			[ : selectedClass | selectedClass mcModel
+ 				ifNil: [ UIManager inform: 'No Magma-based repository for ' , selectedClass packageInfo packageName ]
+ 				ifNotNilDo:
+ 					[ : mcModel | (mcModel originOf: selectedClass asClassDefinition)
+ 						ifNil: [ UIManager inform: selectedClass asString , ' was not found in any Magma-based MC repository.' ]
+ 						ifNotNilDo:
+ 							[ : version | version open ] ] ]!

Item was added:
+ ----- Method: BrowserRequestor>>browseMcMethodOrigin (in category '*monticello-history') -----
+ browseMcMethodOrigin
+ 	"Open a Monticello version browser on the earliest version available in the repository known to contain this version."
+ 	self selectedMethodReference
+ 		ifNil: [ UIManager inform: 'No method selected' ]
+ 		ifNotNilDo:
+ 			[ : methodReference | methodReference mcModel
+ 				ifNil: [ UIManager inform: 'No Magma-based repository for ' , methodReference packageInfo packageName ]
+ 				ifNotNilDo:
+ 					[ : mcModel | (mcModel originOf: methodReference asMethodDefinition)
+ 						ifNil: [ UIManager inform: methodReference asString , ' was not found in any Magma-based MC repository.' ]
+ 						ifNotNilDo:
+ 							[ : version | version open ] ] ]!

Item was added:
+ ----- Method: BrowserRequestor>>browseMethodVersionsInMc (in category '*monticello-history') -----
+ browseMethodVersionsInMc
+ 	"Open a browser on all versions of this method available in the MC repository for this package."
+ 	self selectedMethodReference
+ 		ifNil: [ UIManager inform: 'No method selected' ]
+ 		ifNotNilDo:
+ 			[ : methodReference | methodReference mcModel
+ 				ifNil: [ UIManager inform: 'No Magma-based repository for ' , methodReference packageInfo packageName ]
+ 				ifNotNilDo:
+ 					[ : mcModel | (MCPatch operations: methodReference mcPatchOperations) browse ] ]!

Item was added:
+ ----- Method: BrowserRequestor>>canBrowseMcClassVersions (in category '*monticello-history') -----
+ canBrowseMcClassVersions
+ 	^ self getClass
+ 		ifNil: [ false ]
+ 		ifNotNilDo:
+ 			[ : class | class mcModel notNil ]!

Item was added:
+ ----- Method: BrowserRequestor>>canBrowseMcMethodVersions (in category '*monticello-history') -----
+ canBrowseMcMethodVersions
+ 	^ self selectedMethodReference
+ 		ifNil: [ false ]
+ 		ifNotNilDo:
+ 			[ : methodReference | methodReference mcModel notNil ]!

Item was added:
+ ----- Method: BrowserRequestor>>selectedMethodReference (in category '*monticello-history') -----
+ selectedMethodReference
+ 	^ MethodReference
+ 		class: self getClass
+ 		selector: self getSelector!