[Pkg] The Trunk: Monticello-eem.594.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.594.mcz

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

Name: Monticello-eem.594
Author: eem
Time: 17 July 2014, 12:26:53.562 pm
UUID: 727aa382-6094-495a-8bbf-7740d1c94fbf
Ancestors: Monticello-eem.593

If browsing packages and branches separately ensure that
root packages with versions newer than loaded branches
are still shown bold (but not underlined) in the repository
inspector.

e.g. in a Spur image with an older version of Collections.spur
if we inspect trunk we need to see that there is a newer
version of Collections if it exists, cuz then we know we could
create a patched Spur version of that newer Collections pkg.

=============== Diff against Monticello-eem.593 ===============

Item was changed:
  ----- Method: MCRepositoryInspector>>packageHighlight: (in category 'morphic ui') -----
+ packageHighlight: loadedPackageAndMaybeBranchName
+ 	| packageName bold underline emphasis |
+ 	bold := TextEmphasis bold emphasisCode.
+ 	underline := TextEmphasis underlined emphasisCode.
+ 	packageName := loadedPackageAndMaybeBranchName copyUpTo: $..
+ 	emphasis := (loaded detect: [:each| each packageName = packageName] ifNone: nil) ifNotNil:
+ 			[:mcVersionName|
+ 			 self class browseBranchedVersionsSeparately
+ 				ifTrue:
+ 					[mcVersionName packageAndBranchName = loadedPackageAndMaybeBranchName
+ 						ifTrue:
+ 							[(newer includes: loadedPackageAndMaybeBranchName)
+ 								ifTrue: [bold + underline]
+ 								ifFalse: [underline]]
+ 						ifFalse:
+ 							[(newer includes: packageName)
+ 								ifTrue: [bold]
+ 								ifFalse: [nil]]]
+ 				ifFalse:
+ 					[(newer includes: loadedPackageAndMaybeBranchName)
+ 						ifTrue: [bold + underline]
+ 						ifFalse: [underline]]].
+ 	^emphasis
+ 		ifNil: [loadedPackageAndMaybeBranchName]
+ 		ifNotNil:
+ 			[Text
+ 				string: loadedPackageAndMaybeBranchName
+ 				attribute: (TextEmphasis new emphasisCode: emphasis)]!
- packageHighlight: aString 
- 	^ (loaded anySatisfy:
- 		[ : each | (self class browseBranchedVersionsSeparately
- 					ifTrue: [each packageAndBranchName]
- 					ifFalse: [each packageName]) = aString ])
- 		ifTrue:
- 			[ Text
- 				string: aString
- 				attribute:
- 					(TextEmphasis new emphasisCode:
- 						((newer includes: aString)
- 							ifTrue: [ 5 ]
- 							ifFalse: [ 4 ])) ]
- 		ifFalse: [ aString ]!