[Pkg] 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 Packages mailing list