[squeak-dev] The Trunk: System-mt.1276.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Dec 31 14:06:47 UTC 2021

Marcel Taeumel uploaded a new version of System to project The Trunk:

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

Name: System-mt.1276
Author: mt
Time: 31 December 2021, 3:06:43.907879 pm
UUID: 1a8c32b0-87e9-7748-b3a3-d6566d8c1d66
Ancestors: System-mt.1275

Quickfix for loading older pref dicts from file. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217817.html

=============== Diff against System-mt.1275 ===============

Item was changed:
  ----- Method: Preferences class>>loadPreferencesFrom: (in category 'initialization - save/load') -----
  loadPreferencesFrom: aFile
  	| stream params dict desktopColor patternsToIgnore |
  	patternsToIgnore := #('*updateMapName' '*defaultUpdateURL').
  	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 rehash. "See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217817.html"
  	dict keys
  		reject: [:key | patternsToIgnore anySatisfy: [:pattern | pattern match: key]]
  		thenDo: [:key | | value |
  			value := dict at: key.
  			(self preferenceAt: key ifAbsent: [nil]) ifNotNil:
  				[:pref | [pref preferenceValue: value preferenceValue]
  					on: Deprecation 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