The Trunk: Monticello-cmm.634.mcz

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

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

Name: Monticello-cmm.634
Author: cmm
Time: 30 June 2016, 5:35:56.346888 pm
UUID: 7dd41647-3d9a-413f-8508-2e73208eddfd
Ancestors: Monticello-kfr.633

Update client-side Monticello history access.  Soon, any properly configured HTTP server can provide MC history, not just trunk.

=============== Diff against Monticello-kfr.633 ===============

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 | theClass theNonMetaClass mcModel
+ ifNil: [ UIManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support Monticello history.' ]
+ ifNotNil:
+ [ : mcModel | (MCOperationsList operations: (Cursor wait showWhile: [ theClass theNonMetaClass mcPatchOperations ])) browse ] ]!
- [ : theClass | (MCWorkingCopyBrowser mcModelFor: theClass theNonMetaClass) ifNotNil:
- [ : mcModel | (MCOperationsList operations: (Cursor wait showWhile: [ theClass theNonMetaClass mcPatchOperations ])) browse ] ]!

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 | methodReference mcModel
+ ifNil: [ UIManager inform: 'Only Magma-backed HTTP repositories (or MCMagmaRepositorys) support Monticello history.' ]
+ ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ methodReference mcPatchOperations ])) browse ] ]!
- [ : methodReference | (MCWorkingCopyBrowser mcModelFor: methodReference) ifNotNil: [ (MCOperationsList operations: (Cursor wait showWhile: [ methodReference mcPatchOperations ])) browse ] ]!

Item was changed:
  ----- Method: MCHttpRepository>>mcModel (in category 'overriding') -----
  mcModel
  "Answer the object which can respond to #historyOf: and #originOf:."
+ ^ self!
- ^ ((location beginsWith: 'http://localhost:8888/') or: [ location beginsWith: self class trunkBackupUrlString ]) ifTrue: [ self ]!

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

Item was removed:
- ----- Method: MCWorkingCopyBrowser class>>mcModelFor: (in category 'hooks') -----
- mcModelFor: aClassOrMethodReference
- ^ aClassOrMethodReference mcModel ifNil:
- [ | pkgName rep | (UIManager confirm: 'Okay to add historical repository ' , (rep := MCHttpRepository trunkBackup) description , ' to ' , (pkgName := aClassOrMethodReference packageInfo packageName) , '?') ifTrue:
- [ (MCWorkingCopy forPackageNamed: pkgName) repositoryGroup addRepository: rep.
- aClassOrMethodReference mcModel ] ]!