The Trunk: Monticello-bf.510.mcz

Bert Freudenberg uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-bf.510.mcz

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

Name: Monticello-bf.510
Author: bf
Time: 31 May 2012, 12:02:25.145 pm
UUID: 5eb5cc97-d633-4b0c-b426-44dc888f0522
Ancestors: Monticello-bf.509

- if package is nil, do not try to list version names for it (thanks, cbc)
- ordering by author made insensitive to case
- misc fix: replace an ifNil test by ifEmpty

=============== Diff against Monticello-bf.509 ===============

Item was changed:
  ----- Method: MCRepository>>highestNumberedVersionNameForPackageNamed: (in category 'versions') -----
  highestNumberedVersionNameForPackageNamed: aString
  ^ (self versionNamesForPackageNamed: aString)
+ ifEmpty: [ self error: aString , ' not found in ' , self asString ]
+ ifNotEmptyDo:
+ [ : versionNames | versionNames detectMax:
- ifNil: [ self error: aString , ' not found in ' , self asString ]
- ifNotNilDo:
- [ : pkg | pkg detectMax:
  [ : each | each versionNumber ] ]!

Item was changed:
  ----- Method: MCRepositoryInspector>>initializeVersionNames (in category 'initialize-release') -----
  initializeVersionNames
  repository cacheAllFileNamesDuring:
+ [ versionNames := selectedPackage
+ ifNil: [Array new]
+ ifNotNil: [repository versionNamesForPackageNamed: selectedPackage].
- [ versionNames := repository versionNamesForPackageNamed: selectedPackage.
  self refreshEmphasis ]!

Item was changed:
  ----- Method: MCRepositoryInspector>>orderSpecs (in category 'morphic ui') -----
  orderSpecs
  ^{
  'unchanged' -> nil.
  'order by package' -> [ :x :y | x packageName < y packageName ].
+ 'order by author' -> [ :x :y | x author caseInsensitiveLessOrEqual: y author ].
- 'order by author' -> [ :x :y | x author < y author ].
  'order by version-string' -> [ :x :y | x versionNumber asString < y versionNumber asString ].
  'order by version-number' -> [ :x :y | x versionNumber > y versionNumber ].
  'order by filename' -> [ :x :y | x fileName < y fileName ].
  }!