The Trunk: System-cmm.1129.mcz

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

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

Name: System-cmm.1129
Author: cmm
Time: 10 January 2020, 11:36:14.659274 pm
UUID: 0beb33ab-4417-4fa7-8878-3a4c661d4e0d
Ancestors: System-tpr.1128

Fix avoidance of popup message when loading deprecated preferences.

=============== Diff against System-tpr.1128 ===============

Item was changed:
  ----- Method: Preferences class>>loadPreferencesFrom: (in category 'initialization - save/load') -----
  loadPreferencesFrom: aFile
  | stream params dict desktopColor |
  stream := ReferenceStream fileNamed: aFile.
  params := stream next.
  self assert: (params isKindOf: IdentityDictionary).
  params removeKey: #PersonalDictionaryOfPreferences.
  dict := stream next.
  self assert: (dict isKindOf: IdentityDictionary).
  desktopColor := stream next.
  stream close.
  dict keysAndValuesDo:
  [:key :value | (self preferenceAt: key ifAbsent: [nil]) ifNotNil:
+ [:pref | [pref preferenceValue: value preferenceValue] on: Deprecation do: [ : err | "Ignore preferences which may not be supported anymore."]]].
- [:pref | [pref preferenceValue: value preferenceValue] on: Error do: [ : err | "Ignore preferences which may not be supported anymore."]]].
  params keysAndValuesDo: [ :key :value | self setParameter: key to: value ].
  Smalltalk isMorphic
  ifTrue: [ Project current world fillStyle: desktopColor ]
  ifFalse: [ self desktopColor: desktopColor. ScheduledControllers updateGray ]!