[Pkg] The Trunk: Monticello-eem.517.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-eem.517.mcz

==================== Summary ====================

Name: Monticello-eem.517
Author: eem
Time: 11 July 2012, 3:36:47.953 pm
UUID: a5a753b3-24dd-48f8-b130-8c051ed76e0c
Ancestors: Monticello-bf.516

Get highlightig right in the repository inspector given the
browseBranchedVersionsSeparately option.
Make it the default option.
Don't remove the option just yet as it serves to identify the
affected methods.  But the optionality should go soon.

=============== Diff against Monticello-bf.516 ===============

Item was changed:
  ----- Method: MCRepositoryInspector class>>browseBranchedVersionsSeparately (in category 'class initialization') -----
  browseBranchedVersionsSeparately
  
  	<preference: 'Browse branched package versions separately'
  	category: 'Monticello'
  	description: 'If true, versions of packages on branches will be shown in a separate section from trunk package versions'
  	type: #Boolean>
+ 	^BrowseBranchedVersionsSeparately ifNil: [true]!
- 	^BrowseBranchedVersionsSeparately ifNil: [false]!

Item was changed:
  ----- Method: MCRepositoryInspector>>identifyNewerVersionsOf: (in category 'initialize-release') -----
  identifyNewerVersionsOf: aMCWorkingCopy 
  	(repository possiblyNewerVersionsOfAnyOf: aMCWorkingCopy ancestry names) do:
+ 		[ : eachNewerVersionName |
+ 		newer add: (self class browseBranchedVersionsSeparately
+ 						ifTrue: [ eachNewerVersionName packageAndBranchName ]
+ 						ifFalse: [ eachNewerVersionName packageName ]) ]!
- 		[ : eachNewerVersionName | newer add: eachNewerVersionName packageName ]!

Item was changed:
  ----- Method: MCRepositoryInspector>>packageHighlight: (in category 'morphic ui') -----
  packageHighlight: aString 
  	^ (loaded anySatisfy:
+ 		[ : each | (self class browseBranchedVersionsSeparately
+ 					ifTrue: [each packageAndBranchName]
+ 					ifFalse: [each packageName]) = aString ])
- 		[ : each | each packageName = aString ])
  		ifTrue:
  			[ Text
  				string: aString
  				attribute:
  					(TextEmphasis new emphasisCode:
  						((newer includes: aString)
  							ifTrue: [ 5 ]
  							ifFalse: [ 4 ])) ]
  		ifFalse: [ aString ]!