[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
|