The Trunk: Monticello-cmm.597.mcz

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

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

Name: Monticello-cmm.597
Author: cmm
Time: 26 July 2014, 7:20:36.737 pm
UUID: 2787677e-bb50-4e0d-b3d0-6ee974696c2c
Ancestors: Monticello-cmm.596

- 'browse mc origin' is now moved to the mc history browser.  Thanks for the suggestion Eliot, this is precisely where it belongs.
- Browsing origin takes a few seconds, show the #wait cursor during that time.  Ah hell, show it for browse mc history too because are are network operations, and the network could possibly be slow.

=============== Diff against Monticello-cmm.596 ===============

Item was changed:
  ----- Method: BrowserRequestor>>browseMcClassHistory (in category '*monticello-history') -----
  browseMcClassHistory
  "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 | (MCWorkingCopyBrowser mcModelFor: theClass theNonMetaClass) ifNotNil:
+ [ : mcModel | (MCOperationsList operations: (Cursor wait showWhile: [ theClass theNonMetaClass mcPatchOperations ])) browse ] ]!
- [ : theClass | theClass mcModel
- ifNil: [ UIManager inform: 'No Magma-based repository for ' , theClass packageInfo packageName ]
- ifNotNilDo:
- [ : mcModel | (MCOperationsList operations: theClass mcPatchOperations) browse ] ]!

Item was removed:
- ----- 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 changed:
  ----- Method: BrowserRequestor>>browseMcMethodHistory (in category '*monticello-history') -----
  browseMcMethodHistory
  "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 | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ methodReference mcPatchOperations ])) browse ] ]!
- [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: [ (MCOperationsList operations: methodReference mcPatchOperations) browse ] ]!

Item was removed:
- ----- 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 | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil:
- [ : mcModel | (mcModel originOf: methodReference asMethodDefinition)
- ifNil: [ UIManager inform: methodReference asString , ' was not found in the historical MC repository.' ]
- ifNotNilDo: [ : version | version open ] ] ]!

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

Item was removed:
- ----- Method: Class>>mcOrigin (in category '*monticello') -----
- mcOrigin
- "Answer the MCVersion in which this definition of this class was originally committed."
- ^ self mcModel ifNotNil: [ : mcmodel | mcmodel originOf: self ]!

Item was removed:
- ----- Method: MCDefinition>>findMcModel (in category 'private') -----
- findMcModel
- "Find my WorkingCopy, use the first mcModel-capable repository in its reposigoryGroup."
- self repositoryGroup repositoriesDo:
- [ : each | each mcModel ifNotNilDo:
- [ : mcModel | ^ mcModel ] ].
- ^ nil!

Item was removed:
- ----- Method: MCDefinition>>origin (in category 'private') -----
- origin
- "Answer the MCVersion in which the receiver was originally committed."
- ^ self mcModel ifNotNil: [ : model | model originOf: self ]!

Item was changed:
  ----- Method: MCHttpRepository class>>initialize (in category 'class initialization') -----
  initialize
  self unload.
+ (ServiceRegistry current serviceWithId: #browserMethodMenu) services add: self browseMcMethodHistoryService.
+ (ServiceRegistry current serviceWithId: #browserClassMenu) services add: self browseMcClassHistoryService!
- (ServiceRegistry current serviceWithId: #browserMethodMenu) services
- add: self browseMcMethodHistoryService ;
- add: self browseMcMethodOriginService.
- (ServiceRegistry current serviceWithId: #browserClassMenu) services
- add: self browseMcClassHistoryService ;
- add: self browseMcClassOriginService!

Item was changed:
  ----- Method: MCOperationsBrowser>>browseSelectionOrigin (in category 'actions') -----
  browseSelectionOrigin
+ | mcDefinition |
  selection ifNil: [ UIManager inform: 'Make a selection.' ].
+ mcDefinition := selection definition.
+ Cursor wait showWhile:
+ [ (MCWorkingCopyBrowser mcModelFor: mcDefinition) ifNotNil:
+ [ : mcModel | (mcModel originOf: mcDefinition)
+ ifNil: [ UIManager inform: mcDefinition asString , ' was not found in any historical MC repository.' ]
- selection definition isMethodDefinition ifTrue:
- [ | methodReference |
- methodReference := selection definition asMethodReference.
- (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil:
- [ : mcModel | (mcModel originOf: methodReference asMethodDefinition)
- ifNil: [ UIManager inform: methodReference asString , ' was not found in any historical MC repository.' ]
  ifNotNilDo:
  [ : version | version open ] ] ]!

Item was changed:
  ----- Method: MCRepository class>>browseMcClassHistoryService (in category 'ui-support') -----
  browseMcClassHistoryService
  ^ ServiceAction
  id: #browseMcClassHistory
  text: 'browse mc history'
  button: 'mc'
+ description: 'Browse the Monticello history of this class from the historical code repository.'
- description: 'Browse the Monticello history of this class from the code repository.'
  action:
  [ : aBrowserRequestor | aBrowserRequestor browseMcClassHistory ]
  condition:
+ [ : aBrowserRequestor | true ]!
- [ : aBrowserRequestor | aBrowserRequestor canBrowseMcClassHistory ]!

Item was removed:
- ----- Method: MCRepository class>>browseMcClassOriginService (in category 'ui-support') -----
- browseMcClassOriginService
- ^ ServiceAction
- id: #browseMcClassOrigin
- text: 'browse mc origin'
- button: 'mc'
- description: 'Browse the Monticello version comments in which this class definition was originally committed.'
- action:
- [ : aBrowserRequestor | aBrowserRequestor browseMcClassOrigin ]
- condition:
- [ : aBrowserRequestor | aBrowserRequestor canBrowseMcClassHistory ]!

Item was changed:
  ----- Method: MCRepository class>>browseMcMethodHistoryService (in category 'ui-support') -----
  browseMcMethodHistoryService
  ^ ServiceAction
  id: #browseMcMethodHistory
  text: 'browse mc history'
  button: 'mc'
+ description: 'Browse the Monticello history of this method from the historical code repository.'
- description: 'Browse the Monticello history of this method from the code repository.'
  action:
  [ : aBrowserRequestor | aBrowserRequestor browseMcMethodHistory ]
  condition:
  [ : aBrowserRequestor | true ]!

Item was removed:
- ----- Method: MCRepository class>>browseMcMethodOriginService (in category 'ui-support') -----
- browseMcMethodOriginService
- ^ ServiceAction
- id: #browseMcMethodOrigin
- text: 'browse mc origin'
- button: 'mc'
- description: 'Browse the Monticello version comments in which this edition of this method was originally committed.'
- action:
- [ : aBrowserRequestor | aBrowserRequestor browseMcMethodOrigin ]
- condition:
- [ : aBrowserRequestor | true ]!

Item was removed:
- ----- Method: MethodReference>>mcOrigin (in category '*monticello') -----
- mcOrigin
- "Answer the MCVersion in which this version of this method was originally committed."
- ^ self mcModel ifNotNil: [ : mcmodel | mcmodel originOf: self ]!

Item was added:
+ (PackageInfo named: 'Monticello') postscript: 'MCHttpRepository unload; initialize.'!