[squeak-dev] The Trunk: Monticello-cmm.634.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jun 30 22:36:16 UTC 2016
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 ] ]!
More information about the Squeak-dev
mailing list
|