The Inbox: Monticello-cmm.567.mcz

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!