The Trunk: System-laza.311.mcz

Alexander Lazarević uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-laza.311.mcz

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

Name: System-laza.311
Author: laza
Time: 7 April 2010, 5:57:18.404 pm
UUID: 81c264d2-c917-4526-979e-f6c3ff76445f
Ancestors: System-ar.310

Make Preferences "save to disk" work again. This did not work for PragmaPreferences.

see http://bugs.squeak.org/view.php?id=7490

=============== Diff against System-ar.310 ===============

Item was added:
+ ----- Method: PragmaPreference>>asPreference (in category 'converting') -----
+ asPreference
+ | preference |
+ preference := Preference new.
+ preference
+ name: name
+ defaultValue: defaultValue
+ helpString: helpString
+ localToProject: localToProject
+ categoryList: categoryList
+ changeInformee: changeInformee
+ changeSelector:  changeSelector
+ type: type.
+ preference rawValue: self preferenceValue.
+ ^preference!

Item was changed:
  ----- Method: Preferences class>>storePreferencesIn: (in category 'personalization') -----
  storePreferencesIn: aFileName
+ | stream prefsSnapshot |
- | stream |
  #(#Prevailing #PersonalPreferences )  do:[:ea | Parameters  removeKey:ea  ifAbsent:[]].
+ stream := ReferenceStream fileNamed: aFileName.
- stream := ReferenceStream  fileNamed:aFileName.
  stream  nextPut:Parameters.
+ prefsSnapshot := self dictionaryOfPreferences veryDeepCopy.
+ prefsSnapshot keysAndValuesDo: [:key :pref | prefsSnapshot at: key put: pref asPreference].
+ stream  nextPut: prefsSnapshot.
- stream  nextPut:self dictionaryOfPreferences.
  Smalltalk isMorphic
+ ifTrue:[stream nextPut:World fillStyle]
+ ifFalse:[stream nextPut:DesktopColor].
- ifTrue:[stream  nextPut:World fillStyle]
- ifFalse:[stream  nextPut:DesktopColor].
  stream close!

Item was added:
+ ----- Method: Preference>>asPreference (in category 'converting') -----
+ asPreference
+ ^self!