[squeak-dev] The Trunk: Monticello-cmm.597.mcz
commits at source.squeak.org
commits at source.squeak.org
Sun Jul 27 00:31:16 UTC 2014
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.'!
More information about the Squeak-dev
mailing list
|