[squeak-dev] The Trunk: System-laza.311.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 7 15:58:10 UTC 2010


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!




More information about the Squeak-dev mailing list