The Trunk: Monticello-ul.358.mcz

Levente Uzonyi uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ul.358.mcz

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

Name: Monticello-ul.358
Author: ul
Time: 11 January 2010, 8:24:48.534 am
UUID: 0b3329ad-184d-6b44-ba4a-42d245594abc
Ancestors: Monticello-ul.357

- do not use SortedCollection for sorting

=============== Diff against Monticello-ar.355 ===============

Item was changed:
  ----- Method: MCVersionReader class>>file:streamDo: (in category 'reading') -----
  file: fileName streamDo: aBlock
+
+ ^FileStream readOnlyFileNamed: fileName do: [ :file |
+ aBlock value: file ]!
- | file |
- ^ [file := FileStream readOnlyFileNamed: fileName.
- aBlock value: file]
- ensure: [file close]!

Item was changed:
  ----- Method: MCFileRepositoryInspector>>versionList (in category 'morphic ui') -----
  versionList
+
+ | result |
+ result := selectedPackage
+ ifNil: [ versions copy ]
+ ifNotNil: [ versions select: [ :each | selectedPackage = each first ] ].
+ (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 fourth ]!
- | result sortBlock |
- result := selectedPackage isNil
- ifTrue: [ versions ]
- ifFalse: [ versions select: [ :each | selectedPackage = each first ] ].
- sortBlock := (self orderSpecs at: order) value.
- sortBlock isNil ifFalse: [
- result := result asSortedCollection: [:a :b | [sortBlock value: a value: b] on: Error do: [true]]].
- ^result := result
- collect: [ :each | self versionHighlight: each fourth ]!