[Pkg] The Trunk: Monticello-cmm.447.mcz

[commits at source.squeak.org]

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

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

Name: Monticello-cmm.447
Author: cmm
Time: 23 March 2011, 4:33:55.424 pm
UUID: 8d6b42aa-f96b-49e1-bcf0-a663279dea7d
Ancestors: Monticello-ul.446

- Cache repository's fileNames when a RepositoryInspector is initially opened.

=============== Diff against Monticello-ul.446 ===============

Item was changed:
  ----- Method: MCRepositoryInspector>>packageList (in category 'morphic ui') -----
  packageList
  	| result loadedPackages |
  	packageNames ifNotNil: [ ^ packageNames ].
+ 	repository cacheAllFileNamesDuring: 
+ 		[ "Enjoy emphasis side-effects of populating my versionNames." 
+ 		self versionNames.
+ 		result := repository allPackageNames ].
- 	"Enjoy emphasis side-effects of populating my versionNames." 
- 	self versionNames.
- 	result := repository allPackageNames.
  	"sort loaded packages first, then alphabetically"
  	loadedPackages := Set new: loaded size.
  	loaded do:
  		[ : each | loadedPackages add: each packageName ].
  	result := result asArray sort:
  		[ : a : b | | loadedA loadedB |
  		loadedA := loadedPackages includes: a.
  		loadedB := loadedPackages includes: b.
  		loadedA = loadedB
  			ifTrue: [ a < b ]
  			ifFalse: [ loadedA ] ].
  	^ packageNames := result collect:
  		[ : each | self packageHighlight: each ]!