[squeak-dev] The Trunk: System-cmm.1129.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jan 11 05:37:50 UTC 2020


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



More information about the Squeak-dev mailing list