The Trunk: Services-Base-ul.61.mcz

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

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

Name: Services-Base-ul.61
Author: ul
Time: 13 March 2017, 2:55:49.489542 pm
UUID: ae52e622-4ca1-4852-bdbb-2a20bd5200c0
Ancestors: Services-Base-mt.60

SortedCollection Whack-a-mole

=============== Diff against Services-Base-mt.60 ===============

Item was changed:
  ----- Method: ServicePreferences class>>replayPreferences: (in category 'replaying') -----
  replayPreferences: preferences
+
+ (preferences sorted: [ :a :b | a last < b last ])
- | s |
- s := SortedCollection new
- sortBlock: [:a :b | a last < b last].
- s addAll: preferences;
- reSort.
- s
  do: [:e | | v |
  v := self valueOfPreference: e first ifAbsent: ''.
  self setPreference: e first toValue: (v
  ifEmpty: ['']
  ifNotEmpty: [v , ' '])
  , e second]!