Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.424.mcz

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

Name: Monticello-cmm.424
Author: cmm
Time: 2 March 2011, 9:40:27.002 pm
UUID: d45fc80b-a495-42d4-84dc-2bfa77e4e050
Ancestors: Monticello-cmm.423

- Moved emphasis-setting methods to MCRepositoryInspector since MCVersionInspector's don't need that.

=============== Diff against Monticello-cmm.423 ===============

Item was added:
+ ----- Method: MCRepositoryInspector>>identifyLoadedAndInherited: (in category 'morphic ui') -----
+ identifyLoadedAndInherited: aMCWorkingCopy 
+ 	aMCWorkingCopy ancestors do:
+ 		[ : ancestor | loaded add: ancestor mcName.
+ 		ancestor ancestorsDoWhileTrue:
+ 			[ : heir | (inherited includes: heir name)
+ 				ifTrue: [ false ]
+ 				ifFalse:
+ 					[ inherited add: heir name.
+ 					true ] ] ]!

Item was added:
+ ----- Method: MCRepositoryInspector>>refreshEmphasis (in category 'morphic ui') -----
+ refreshEmphasis
+ 	newer := Set new.
+ 	inherited := Set new.
+ 	loaded := Set new.
+ 	MCWorkingCopy allManagers do:
+ 		[ : each | | latest |
+ 		self identifyLoadedAndInherited: each.
+ 		(self hasNewerVersionsFor: each) ifTrue: [ newer add: each package name ] ]!

Item was changed:
  ----- Method: MCRepositoryInspector>>versionList (in category 'morphic ui') -----
  versionList
  	| result |
  	result := selectedPackage
+ 		ifNil: [ versionNames copy ]
- 		ifNil: [ Array empty ]
  		ifNotNil:
+ 			[ versionNames select:
+ 				[ : each | selectedPackage = each packageName ] ].
- 			[ repository versionNamesForPackageNamed: selectedPackage ].
  	"Not sure why we need this ugly Error trapping here.."
  	(self orderSpecs at: order) value ifNotNil:
  		[ : sortBlock | result sort:
  			[ : a : b | [ sortBlock
  				value: a
  				value: b ]
  				on: Error
  				do: [ true ] ] ].
  	^ result replace:
  		[ : each | self versionHighlight: each ]!

Item was removed:
- ----- Method: MCVersionInspector>>identifyLoadedAndInherited: (in category 'private') -----
- identifyLoadedAndInherited: aMCWorkingCopy 
- 	aMCWorkingCopy ancestors do:
- 		[ : ancestor | loaded add: ancestor mcName.
- 		ancestor ancestorsDoWhileTrue:
- 			[ : heir | (inherited includes: heir name)
- 				ifTrue: [ false ]
- 				ifFalse:
- 					[ inherited add: heir name.
- 					true ] ] ]!

Item was removed:
- ----- Method: MCVersionInspector>>refreshEmphasis (in category 'private') -----
- refreshEmphasis
- 	newer := Set new.
- 	inherited := Set new.
- 	loaded := Set new.
- 	MCWorkingCopy allManagers do:
- 		[ : each | | latest |
- 		self identifyLoadedAndInherited: each.
- 		(self hasNewerVersionsFor: each) ifTrue: [ newer add: each package name ] ]!