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