The Trunk: Monticello-eem.594.mcz

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 ]!