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 ] ]!