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