[squeak-dev] The Trunk: System.spur-kfr.725.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Apr 28 05:32:20 UTC 2015


Karl Ramberg uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System.spur-kfr.725.mcz

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

Name: System.spur-kfr.725
Author: kfr
Time: 28 April 2015, 7:31:43.891 am
UUID: 56df7b80-d8e2-9945-8286-501a5fff02a4
Ancestors: System.spur-eem.709, System.spur-eem.712, System.spur-topa.718, System.spur-mt.724

Register fileService for *.pref. Preferences can now be loaded from FileList

=============== Diff against System.spur-eem.709 ===============

Item was added:
+ ----- Method: Preferences class>>fileReaderServicesForFile:suffix: (in category 'file list services') -----
+ fileReaderServicesForFile: fullName suffix: suffix 
+ 	^(suffix = 'prefs')  | (suffix = '*') 
+ 		ifTrue: [ self services ]
+ 		ifFalse: [ #() ]!

Item was changed:
  ----- Method: Preferences class>>loadPreferencesFrom: (in category 'personalization') -----
  loadPreferencesFrom: aFile
  	| stream params dict desktopColor |
+ 	stream := ReferenceStream fileNamed: aFile.
- 	stream := ReferenceStream on: 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]].
  
  	params keysAndValuesDo: [ :key :value | self setParameter: key to: value ].
  
  	Smalltalk isMorphic
  		ifTrue: [ World fillStyle: desktopColor ]
  		ifFalse: [ self desktopColor: desktopColor. ScheduledControllers updateGray ].
  !

Item was added:
+ ----- Method: Preferences class>>serviceLoadPreferencesFromDisk (in category 'file list services') -----
+ serviceLoadPreferencesFromDisk
+ 	^ SimpleServiceEntry 
+ 		provider: self 
+ 		label: 'load preferences from a saved file'
+ 		selector: #restorePreferencesFromDisk:
+ 		description: 'restore all saved personal preference settings'
+ 		buttonLabel: 'load preferences'!

Item was added:
+ ----- Method: Preferences class>>services (in category 'file list services') -----
+ services
+ 	^ Array with: self serviceLoadPreferencesFromDisk!



More information about the Squeak-dev mailing list